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

my @array = ( ['a', '1', 'L'],
              ['b', '2', 'M'],
              ['c', '3', 'N'],
              ['d', '4', 'O'],);


my @transposed = ( ['a', 'b', 'c', 'd'],
                   ['1', '2', '3', '4'],
                   ['L', 'M', 'N', 'O'],);

foreach my $row_ref (@array)
{
   print "@$row_ref\n";
}
# Prints:
#a 1 L
#b 2 M
#c 3 N
#d 4 O

foreach my $row_ref (@transposed)
{
   print "@$row_ref\n";
}
# Prints:
#a b c d
#1 2 3 4
#L M N O