@data = ( 22, 33, 44 ); @newdata = ( 55, 66, 77 ); sub passingArray{ @tmp = $_[0]; @newtmp = $_[1]; print "Number of elements tmp: $#tmp\n"; print "tmp1 @tmp\n"; print "Number of elements newtmp: $#newtmp\n"; print "tmp1 @newtmp\n"; } passingArray( @data, @newdata );