my $not_a_hash = bless [], 'HASH';
print type($not_a_hash), "\n";