Select Code to Download

sub PUSH {
  my ($aref, @new) = @_;
...
  carp "first parameter must be an array reference" unless ref $aref e
+q 'ARRAY';
  ...
}

sub NAMED_PUSH {
  my(%args) = @_;
...
  carp "dest_aref parmeter must be an array reference" unless ref $arg
+s{dest_aref} eq 'ARRAY';
  ...
}