my @namen=<$fh>;
chomp(@namen);
@namen=sort{length($b) <> length($a) || $a cmp $b}@namen;
# erst länge des namen, dann alphabetisch

for my $name (@namen) {
  if($test=~/\Q$name\E/) {
    print "GEFUNDEN: $name\n";
  }
}