my $name = "Sam";
my $newvar = "\$$name";
# or even ... my $newvar = '$' . $name;

print $name, "\n", $newvar;