perl -le '$c = 0; print @$_ for map { [$c, $c += $_] } (2,6,5,7);'
perl -le '$c = 0; print @$_ for map { ["$c", $c += $_] } (2,6,5,7);'