use strict;
    use warnings;

##</code><code>##

use strict;
use warnings;

my @digits  = qw(1 2 3);
my @letters = qw(a b c d e f g);
my @romans  = qw(I II III);

foreach my $letter (@letters) {
    foreach my $roman (@romans) {
        foreach my $digit (@digits) {
            print "$digit,$letter,$roman\n";
        }
    }
}