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