@m = (1, 2, 3, 4);$i = 0;while ($i < $#m){ ($m, $n) = @m[$i..$i+1]; print "$m $n\n"; $i += 2;}可以用while来做
