@foibles = qw( caffiene pizza ... ); foreach $monk (@perlmonks) { push @{ $monk->{toConsume} }, grep { exists $monk->{vices}{$_} } @foibles; }