opendir (my $dir, $Unterverzeichnis) || die &error("Couldn´t open File: $ziel_verzeichnis \n" , 1);

my @zippeintraege = grep{/$filter/} readdir($dir);
closedir $dir;