.
.
.
   if ($t eq $hash) {
      print STDERR "Found it -> $_\n" 
      exit(0);
   }
}

exit(1);