my %for_later;
   foreach my $name (@array)
   {
     eval <<"HERE";
       my \$$name = new OBJ;
       do_stuff(\$$name);
       $for_later{$name} = \$$name;
HERE
   }