Select Code to Download

use List::Util qw(first);
my @hashes = grep { first { $_ eq '1117'} @{$_->{bill}} } @array;