my $foo= "bar";
my $ref= \$foo;

print $$ref;

__END__
bar