Matlab:
	for i=1:length(b)
		s(i) = sum(b(1:i));
	end
Perl:
	my $localsum = 0;
	$s = [ map{ $localsum += $_ } @$b ];