#!/usr/bin/perl
use strict;
use warnings;
use tahash;
use Data::Dumper (); # just for debugging, remove from production code

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

my $val = tie(%hash,"tahash") or die "Can't tie : $!";
print Data::Dumper->new([$val],['val'])->Dump(),"\n";
print Data::Dumper->new([\%hash],['*hash'])->Dump(),"\n";