foreach (@$dateien){
$datei_aktuell = $_;

# vs.

foreach my $datei_aktuell (@$dateien) {