foreach (@$dateien){
$datei_aktuell = $_; #bräuchte ich nicht, find ich aber übersichtlicher so
$Handle = "HANDLE_".$i; # Der Name des Handles soll immer HANDLE_$i sein
open ($Handle,'<'.$datei_aktuell)or die "$datei_aktuell: open failed: $! beim oeffnen der quellfiles\n"; 
#open $Handle, '<', $datei_aktuell or die "$datei_aktuell: open failed: $! beim oeffnen der quellfiles\n";

push (@Handles, $Handle); #erzeugen eines Arrays, in dem alle Dateihandles gespeichert sind
++$i;
}