use strict;
my $a = 1;
my $b = \$a;
print $b, "\n";
print "$b\n";