FIND_MATCH:
{
  foreach my $a (@array)
  {
    if( $hash{$a} eq 'correct_value' )
    {
      print 'Success';
      last FIND_MATCH;
    }
  }
  warn "Didn't find a suitable match!";
}