my $o = bless {}, 'ARRAY';
print "$o isa array" if UNIVERSAL::isa($o, 'ARRAY');

__END__
ARRAY=HASH(0x759c) isa array