use Algorithm::Loops 'MapCar';

my $wide = [[1,2,3],[2,3,5]];
my $tall = [ MapCar {[@_]} @$wide ];