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