my $dateinamen;

opendir(INPUT, "./");

while (my $dateien = readdir(INPUT)) {
	$dateinamen .= $dateien . ' ';
}

closedir INPUT;

my @dateinamen_liste = split(" ", $dateinamen);

foreach my $dateiname (@dateinamen_liste) {
	if (not -e "haeufigkeiten.txt") {
               ...
} else {
           ...
}