Shell Programming and Scripting

x=(a b c)
y=(d e)
times=$((${#x[*]} * ${#y[*]}))
((xi=yi=0))
for((i=1;i<=times;i++,xi++,yi++))
do
 if((xi>${#x[*]}-1));then xi=0;fi
 if((yi>${#y[*]}-1));then yi=0;fi
 print ${x[$xi]},${y[$yi]}
done

x=(a b c)
y=(d e)

a,d
b,e
c,d
a,e
b,d
c,e

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

$\="\n";

my @x=qw(a b c);
my @y=qw(d e);
my ($a,$b);
$a=$b=0;

for(my $i=0;$i<@x*@y; $i++){
        print "$x[$a++],$y[$b++]";
        $a=0 if ($a==@x);
        $b=0 if ($b==@y);
}