my $prefix = 'VERTRAG';
foreach my $temp (
    grep {0 == index($_, $prefix) && substr($_, length $prefix) < 3} keys %hash
) {
    print "Untersuche $temp\n";
}