unless(defined($hash_of_strings{substr($_,0,4)})) {
  # do stuff
}