Select Code to Download

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

feebar(\$blahblah);
sub feebar {
...
   $$ref = 4;
   print "$$ref\n";
}