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