Select Code to Download

%a = (1,1,2,2);
$a = \%a;
print $$a;

%a = (1,1,2,2);
$a = \%a;
print %{$a};

sub a {
    print "abc";
...

$a = \&a;
&{$a}; # call a, and prints abc