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




C:\....\Projects>perl>