my $var='hi'; 
my $ref=\$var; 
${$ref}='there'; 
print "$var\n";