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': $@";