my %for_later;
  foreach my $name (@array)
  {
    no strict;
    ${$name} = new OBJ;
    do_stuff(${$name});
    $for_later{$name} = ${$name};
  }