$, = ", ";
$\ = "\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

##</code><code>##

$, = ", ";
$\ = "\n";
@array = map{ [ 'a'..'f' ] } 1 .. 6;;
for (@array) {
   print 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