Select Code to Download

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

foreach (keys %hash) {
  if ($hash{$_} eq '111') {
...
    last;
  }
}

while (my ($k, $v) = each %hash) {
  if ($v eq '111') {
...
    last;
  }
}