for $x (11 .. 80) {
  print "$x,";
  print $x=~0 ? "\n" : " ";
}