use strict;
use warnings;

my @array1 = (1..5);
my @array2 = ('a','b','c','d','e','f','g');
my @array3 = ('I', 'II', 'III');

foreach my $letter(@array2){
	foreach my $index_roman(0..$#array3){
		foreach my $index (0..$#array1){
		print "$array1[$index],$letter,$array3[$index_roman]\n";
		}
	}
}