if (grep { $_ eq '111' } values %hash) {
  print 'found';
}

##</code><code>##

foreach (keys %hash) {
  if ($hash{$_} eq '111') {
    print "Found at key $_";
    last;
  }
}

##</code><code>##

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