Select Code to Download

use mapcar;

...
cd  kl  st
ef  mn  uv
gh  op  wx

 
use Algorithm::Loops qw(MapCar);

...
my @transposed = MapCar {[@_]} @matrix;

print join( "  ", @$_), $/ for @transposed;