sub PUSH {
  my ($aref, @new) = @_;

  carp "first parameter must be an array reference" unless ref $aref eq 'ARRAY';
  ...
}