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

##</code><code>##

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