#!/usr/bin/env perl 
use strict;
use warnings;

my @array1 = (1, 2, 3);
my @array2 = (qw/a b c/); # Enough to test
my @array3 = (qw/I II III/);

for my $alpha (@array2) {
    for my $roman (@array3) {
        for my $arabic (@array1) {
            print "$arabic,$alpha,$roman\n";
        }
    }
}