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