my @checks = qw( 0 agency_id agency_id 1 advertiser advertiser 2 compaign_id compaign_id 3 contact_id admin_contact_id 3 contact_id tech_contact_id ); for (@checks) -> ($idx, $key, $check) { $result_ref->{$check} && get_updates( @objects[$idx], $key, $result_ref->{$check} ); }