use tahash;

my %hash = (
              "Jan" => 1,
              "Feb" => 2,
              "Mar" => 3,
           );

my $val = tie(%hash,"tahash") or die "Can't tie : $!";


##</code><code>##


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);
}