sub foo { my $r = \$_[0]; print "FOO ($r)\n" } 
     my $X = "SOMESTRING"; 
     my $O = \$X; 
     my $R = \$X; 
     print "NOTFOO ($R,$O)\n";                                           
     foo( $$R );