Select Code to Download

use strict;
$$a = 1;# you cannot say my $$a ;-)
print $$a; #this print out 1;
print $a; #this print out SCALAR(0xnnnnnnnn)

use strict("refs");
my $a = "abc";
my $abc = 1;
print $$a;