Select Code to Download

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 ARRA
+Y.\n".
         "Failed to coerce '$arrayref': $@";