$nth = 2; # every 2nd words
for (0..$#pairs-$nth) {
    print $pairs[$_][0], " ", $pairs[$_+$nth][0], "\n";
}