foreach my $temp (grep {/^VERTRAG(\d+)$/ && abs $1-$gesucht == 1}  keys %hash) {
  print "Untersuche $temp\n";
}