perl -e "@list=(1..7);$counter=0; foreach $it (@list){if ($counter >= 3){print qq(\n\n);$counter = 0; redo}print qq($it\n); $counter++}"
1
2
3


4
5
6


7