Select Code to Download

#!/usr/bin/perl -w

...
print "$var\n";
print "$var - $hash{$var}\n";
print "$hash{'$var'}\n";

print $hash{"$var"}.$hash{$hash{"$var"}}."\n";