sub pairs { map {join ',', splice(@_, 0, 2)} 0..$#_/2 }
print join("\n", pairs(@arr)), "\n";