while (my ($k, $v) = each %hash) {
  if ($v eq '111') {
    print "Found at key $k";
    last;
  }
}