UNIVERSAL::isa($array_ref,"ARRAY")
or die "Can't use anything but an array";
####
my $array_ref=bless {},"ARRAY";
####
eval{ ref($arrayref) and @$arrayref ? 1 : 1 }
or die "Must have a reference to something that behaves like an ARRAY.\n".
"Failed to coerce '$arrayref': $@";