Select Code to Download

my $n = 5; # print every five lines
my $i = 0;
...
    $i++;
    print "\n" if $i % $n == 0;
}

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