package tahash;

sub new {
        my $class = shift;
        tie my %ref, $class;
        bless \%ref, $class;
    }

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