use feature qw/:5.10/;
my @array = qw(1 22 333 4 555 6 7777 8 9999 10 11 121212 131313 14 15 16);
say join(',', shift @array, shift @array // (), shift @array // () ) while (@array);