attach ( $somepointer, { seen=>1 }, 'opt_name_to_avoid_collision') or die "Couldn't attach;
 # Later on...
 my $attached = attach($somepointer);
 $attached->{bar}= uc $attached->{bar};