gistfile1.PL

use strict;
use warnings;

my $foo = 3;
my $ref1 = \$foo;
my $foo = 10;
my $ref2 = \$foo;

print "$$ref1";
print "$$ref2";
$$ref1++;