Select Code to Download

my @fields = qw/ ... /;
for (0 .. $#fields) {
  get_updates($objects[$_], $fields[$_], $result_ref->{$fields[$_]}
    if defined $result_ref->{$fields[$_]};
}