$, = ", ";
$\ = "\n";
@array = map{ [ 'a'..'f' ] } 1 .. 6;;
for (@array) {
   print for reverse @$_;
}
__END__
f
e
d
c
b
a
f
e
d
c
b
a
f
e
d
c
b
a
f
e
d
c
b
a
f
e
d
c
b
a
f
e
d
c
b
a