Select Code to Download

for my $i (1..100) {
  my $result;
...
  
  print "\n" unless $i % 5;        # that's just sugar for nicer tabul
+ar view
}

for my $i (1..100) {
  if      ( not $i % 15 ) {
...
  print "\t\t";
  print "\n" unless $i % 5;    # that's just sugar for nicer tabular v
+iew
}