@erlaubte_praefixe = qw(hallo X Y);
for my $datei (@dateien) {
   my $name = basename($datei,$suffix);
   print "$name\n";
   if(grep{$name =~ /^$_/}@erlaubte_praefixe){
     push(@ohneendung,$name);
   }
}