#!/usr/local/bin/perl
$var = "AnyThing";
#Save address of scalar variable $var
$ref = \$var;
#Dereference $ref printing value of $var
print "Value = $$ref\n";
#Save address of scalar $ref, itself a reference
$doubleRef = \$ref;
#Dereference $doubleRef, then dereference contained reference
print "Double Reference Value = $$$doubleRef\n";
#Save address of scalar $doubleRef, itself a reference
$tripleRef = \$doubleRef;
#Dereference $tripleRef, then dereference contained references
print "Triple Reference Value = $$$$tripleRef\n";
|