[...]
while (my $dateien = readdir(INPUT)) {
	$dateinamen .= $dateien . ' ';
}
[...]
my @dateinamen_liste = split(" ", $dateinamen);
[...]