my $var = 1;
my $ref = \$var;
my %hash = ( key => \$var );

# All print '1'
print $var;
print $$ref;
print ${$hash{key}};