package tahash;
sub TIEHASH {
   print "<@_ \n>";
   my $class = shift;
   my %hash = @_;
   print "In TIEHASH .... \n";
   return bless(\%hash);
}