Comme des listes ...

perl -e 'foreach $w (a..z) { foreach $x (a..z) { foreach $y (a..z) { foreach $z (a..z) { print $w,$x,$y,$z,"\n"} } } }'

Comme toujours en Perl, There Is More Than One Way To Do It