@a = qw/1 1 0 3 8 9 5 2 0 12 2 1/;
$m = 5;
print "@a\n";
for $x (0 .. $#a){
	if($a[$x] < $m){$a[$x+1] += $a[$x]; next;}
	if($a[$x+1] < $m and $x < $#a){$a[$x+1] += $a[$x]; next;}
	push @b, $a[$x];
}

print "@b\n";