DB<1> $str = join " ", 1..5

  DB<2> for $k (0..6) { my $sum=0; $sum+= $_ for (split ' ', $str)[0..$k-1] ; print "$sum\n";}
0
1
3
6
10
15
15