my $nl = 1; for my $i (0..$#array) { if (!$nl && $i%20==0) { print("\n$array[$i]"); $nl = 1; } else { print(" $array[$i]"); $nl = 0; } } print("\n") if !$nl;