if( my $name = split("\.", $filename)[0] eq envhash{suchbegriffe} ) {print "GEFUNDEN!!!!!!"}