DB<8> $mref = [ [ qw / 5 4 4 2 4/ ], ]; DB<9> $nref = [ map {[$_]} map {@{$_}} @$mref ];