Help for this page
use strict; use warnings;
C:\....\Projects>perl -wE "@a=1..9; $i=0; say @a[$i..($i+=3)-1] while +$i<@a" ... C:\....\Projects>perl>