use List::UtilsBy qw/zip_by/; my @transposition = zip_by { [ @_ ] } @matrix; https://metacpan.org/pod/List::UtilsBy#zip_by
use List::UtilsBy qw/zip_by/; my @transposition = zip_by { [ @_ ] } @matrix;
https://metacpan.org/pod/List::UtilsBy#zip_by