Select Code to Download

   my %for_later;
   foreach my $name (@array)
...
       $for_later{$name} = \$$name;
HERE
   }

  my %for_later;
  foreach my $name (@array)
...
    do_stuff(${$name});
    $for_later{$name} = ${$name};
  }

  my %for_later;
  foreach my $name (@array)
...
    do_stuff($obj);
    $for_later{$name} = $obj;
  }

  my $obj = new OBJ($name)