Select Code to Download

 
  my $x = \" VERY VERY BIG STRING .....";
  my $len = length( $$x );

     sub foo { my $s = shift; my $r = \$s; print "FOO ($r)\n" } 
     my $X = "SOMESTRING"; 
...
     my $R = \$X; 
     print "NOTFOO ($R,$O)\n";                                        
+   
     foo( $$R );

NOTFOO (SCALAR(0x9393f8),SCALAR(0x9393f8))
FOO (SCALAR(0x9394a0))

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

NOTFOO (SCALAR(0x1ac23e8),SCALAR(0x1ac23e8))
FOO (SCALAR(0x1ac23e8))