Select Code to Download

sub passingArray {
  my ( $aref1, $aref2 ) = @_;
...
 print "Number of elements newtmp: $#$aref2\n";
 print "tmp1 @$aref2\n";
 }