#!/usr/bin/perl -w

use strict;
use Scalar::Util 'reftype';
use Tie::Hash;

foreach my $package (qw( Scalar Array Code ))
{
    my $h = tie my %new_hash, $package . 'Hash';
    print "Tied $h as a hash based on $package\n";
    print 'It is ' . (UNIVERSAL::isa( $h, 'HASH' ) ? '' : 'not ') . "a HASH\n";
    print 'Its reftype is ' . reftype( $h ) . "\n";
}

package ScalarHash;

sub TIEHASH { bless \(my $foo), $_[0] }

package ArrayHash;

sub TIEHASH { bless [], $_[0] }

package CodeHash;

sub TIEHASH { bless sub {}, $_[0] }