Select Code to Download

   for (my $y = 0; $y < $num; $y++) {
      for (my $x = $y+1; $x < $num; $x++) {
...
         }
      }
   }