DB<6> @split = (split ' ', $str)

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