use Data::Dumper;
my ($x,$y);
$y='Foo';
$x=\$y;
print Dumper($x);
__END__
#Outputs
$VAR1=\'Foo';