Select Code to Download

my $string       = 'foo';
my $variablename = 'string';
my $temp         = ${$variablename};
print $temp, $/;

$string = 'foo';
my $variablename = 'string';
my $temp         = ${$variablename};
print $temp, $/;