sub fubar {
     my $ref = shift;
     ${$ref} = 4;
     print "$$ref\n";
  }