for my $i (1..10) {
  THIS_LOOP: for my $j (1..10) {
    for my $k (1..10) {
      last THIS_LOOP if $k > $i;
      last if $k > $j;
      print "$i.$j.$k\n";
    }
  }
}