#!/usr/bin/perl -wT
use strict;

# golfed version using glob
my $nums = join(',',1..31);
my @list1 = glob("{$nums}-{$nums}-{$nums}");
print "L1: $_\n" for @list1;

# more sane way of doing that.....
my @list2;
for my $i (1..31) {
  for my $j (1..31) {
    for my $k (1..31) {
      push(@list2,"$i-$j-$k");
    }
  }
}
print "L2: $_\n" for @list2;