use strict; use warnings; my @arr = ('a' .. 'z', 'Z'); # non-destructively for (my $i = 0; $i < @arr; $i += 2) { print "$arr[$i] $arr[$i+1]\n"; } # destructively while (my @pair = splice(@arr, 0, 2)) { print "@pair\n"; }