Select Code to Download

use strict;
use warnings;

sub TIEHASH {
   print "<@_ \n>";
...
   print "In TIEHASH .... \n";
   return bless(\@hash); # <-- the ARRAY @hash does not exist. You wan
+t %hash.
}