I seem to be reading your question differently than the other monks, but I understand that you want to print your array in groups of n, with a blank line between.

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

Alternatively (≥v5.12 required):

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