open RARLIST, ">rarlist.lst" or die $!;
binmode(RARLIST, ":encoding(utf-8)");
foreach (sort keys %{$daten{dateien}})
    {
    $datei_pfad = "$pfad"."$_";
    $datei_pfad =~ tr/\//\\/; 
    print RARLIST "$datei_pfad"."\n";
    }

close RARLIST;
system 'rar a -v1000 pre_rar @rarlist.lst';