@data = qw/ 1 2 3 /;push @data, 5; #---数组后加5，@new = push @data, 5整个语句返回加过5后的元素个数即为4print "@data\n"
push @data, 5;#返回的是@data加入5后的元素个数，此时为4。perldoc -f push
