my $variable = 22;
my $pointer = \$variable;

say "The address of \$variable, which contains the value $variable,";
say "is $pointer";

$$pointer = 25;

say "Look at that!  \$variable now equals $variable";

my $double_pointer = \$pointer;
$$$double_pointer = 50;

say "Look at that!  \$variable now equals $variable";

##</code><code>##

The address of $variable, which contains the value 22,
is SCALAR(0x801e64540)
Look at that!  $variable now equals 25
$double_pointer = REF(0x801e644b0)
Look at that!  $variable now equals 50