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);