foreach my $letter(@array2){
	foreach my $roman(@array3){
		foreach my $number (@array1){
		print "$number,$letter,$roman\n";
		}
	}
}