sub field{
  my ($arr1,$num,$arr2,$num2) = @_;

  warn "Error in 'arr1'";
  # or
  warn "Error: first arg to field must be an array reference" unless ref($arr1) eq 'ARRAY';
  # etc
}