I am not sure i follow you ... do you mean the contents of the 'container' @stuff or @row? Or do you mean you want to print out columns instead of rows? I chose @row because i am lazy ;). I could have written it like so (only pertinent code shown - untested):

my ($foo,$bar,$baz);

for my $row (@stuff) {
   ($foo,$bar,$baz) = @$row;
   write;
}

format STDOUT =
@<<<<<        @|||||     @### 
$foo,$bar,$baz
[download]

So, if i am reading your question correctly, the answer is no. You have to iterate through each row. Now, if you are wanting to use a 'landscape' style output instead of a 'portrait' style output, you will need to do a lot more work. Formats won't transpose 2-D arrays for you, but Math::Matrix will:

use Data::Dumper;
use Math::Matrix;

my $a = Math::Matrix->new(
   [1,0,0], [1,0,0], [1,0,0],
);

print Dumper $a->transpose();
[download]

Hope this helps ...

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)