for my $dat(@datei) {
   ... # $dat statt $datei[$i]
}