DB<20> use Data::Dump qw/dd/; DB<21> $str = join " ", 10..15 DB<22> dd ["$_",( split ' ', $str, $_)] for 0..6 [0, 10 .. 15] [1, "10 11 12 13 14 15"] [2, 10, "11 12 13 14 15"] [3, 10, 11, "12 13 14 15"] [4, 10, 11, 12, "13 14 15"] [5, 10 .. 13, "14 15"] [6, 10 .. 15]