@sorted = 0 .. 9;;

splice @sorted, 1, 8, [ @sorted[ 1 .. 8 ] ];;

pp @sorted;;
(0, [1, 2, 3, 4, 5, 6, 7, 8], 9)

##</code><code>##


splice @{ $sorted[1] }, 1, 6, [ @{ $sorted[ 1] }[ 1 .. 6 ] ];;

pp @sorted;;
(0, [1, [2, 3, 4, 5, 6, 7], 8], 9)

##</code><code>##

splice @{ $sorted[1][1] }, 1, 4, [ @{ $sorted[1][1] }[ 1 .. 4 ] ];;

pp @sorted;;
(0, [1, [2, [3, 4, 5, 6], 7], 8], 9)