To be pedantic, the question was "two or more".
Here's a conventional answer which allows for varying the grouping size. (Just to make it a little interesting, I included an alternate method for dealing with the last group being short.)

my@a=qw(a b c d e f);

my $grpsiz = 2;

if (@a% $grpsiz) {
  push @a, ("") x ($grpsiz - @a % $grpsiz)
}

for (my$i = 0; $i <= $#a; $i += $grpsiz) {

  print @a[$i .. $i+$grpsiz-1]
}
[download]