Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
######  Dies Horribly  ######
print %$testhash{ "Tier 1" }, " is dereferenced.\n";

Select or download this

print $ref, " is \$ref\n";
print $testhash{ "Tier 1" }, " is \$testhash\{ \"Tier 1\" \}\n";
------------------------------
HASH(0x8dc2bdc) is $ref
HASH(0x8dc2bdc) is $testhash{ "Tier 1" }