http://www.perlmonks.org?node_id=968054


in reply to perl array of hashes help

my @hashes = grep { '1117' ~~ $_->{bill} } @array;

or for an older version of Perl, you can use: 
use List::Util qw(first);
my @hashes = grep { first { $_ eq '1117'} @{$_->{bill}} } @array;

[download]

In Section Seekers of Perl Wisdom