OUTER: for (my $r = 0; $r < @primeNumbers; $r += $NumPerRow) {
  for (my $c = r; $c - $r < $NumPerRow; $c++) {
    printf $format, $primeNumbers[$c];
    last OUTER if ($c == $#primeNumbers);
  }
  print "\n";
}