#!perl -w
use strict;
use Data::Dumper;
my $foo = 'bar';
$foo = \$foo;

print $foo;
print $$foo;
print Dumper $foo;

__END__

REF(0x12da554)
REF(0x12da554)
$VAR1 = \$VAR1;