my $n = 5; # print every five lines
my $i = 0;
for my $item (@array) {
	print "$item\n";
	$i++;
	print "\n" if $i % $n == 0;
}

##</code><code>##

my $n = 5;
while (my ($idx, $item) = each(@array)) {
  print $item;
  print "\n" if $idx % $n == $n - 1;
}