Select Code to Download

 sub foo {    # pass by ref
  my $ref = shift;
  $ref->{one} = q{One};
  $ref = {}; # why won't this replace the underlying hash?
  return $ref;
}