How could you transpose a matrix in Perl?

my @arr = (['a','b','c'],

                    ['h','i','j'],

                    ['x','y','z']);

for (  $i=0; $i<=$#arr; $i++ )

{

        print join(",", (map $_->[$i], @arr));

        print "\n";

}