Select Code to Download

my $some_scalar = 'abc';
my $ref = \$some_scalar;
print $ref, "\n";      # SCALAR(0x225e9c)
print ${$ref}, "\n";   # abc

$some_scalar = 'abc';
my $name = 'some_scalar';
print $name, "\n";     # some_scalar
print ${$name}, "\n";  # abc