Select Code to Download

use tahash;

...

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

package tahash;
...
   return bless(\@hash);
}