my $bar="fred";

no strict refs;

$$bar="ethel";

print $fred, "\n";
print $$bar, "\n";