my $nasty = bless sub{},'ARRAY';
my $anon  = [];

if (UNIVERSAL::isa($anon,'ARRAY') == $nasty->isa('ARRAY')) 
{ print "isa says both are related to 'ARRRAY'" }