sub callmeth
  {
  my @arguments = @_;
  my $scalar = shift(@arguments);
  my $arrayref = shift(@arguments);
  unless(ref($arrayref) eq 'ARRAY'))
    { carp/croak/die/whatever you feel like; }
  * do stuff here
  }