in reply to Re: hash key regular expression pattern
in thread hash key regular expression pattern

use List::Util qw<first>; print $cat{ ( first { m/CHICAGO/i } keys %cat ) || '' };
  • Comment on Re^2: hash key regular expression pattern

In Section Seekers of Perl Wisdom