You might find a speedy method in PDL. Look at perldoc PDL::Basic. From the pod, as example:

transpose

       transpose rows and columns.

        $b = transpose($a); $b = ~$a;

       Also bound to the "~" unary operator in PDL::Matrix.

        perldl> $a = sequence(3,2)
        perldl> p $a
        [
         [0 1 2]
         [3 4 5]
        ]
        perldl> p transpose( $a )
        [
         [0 3]
         [1 4]
         [2 5]
        ]
[download]