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