Perlでcumsum

Rに慣れてしまうとPerlの配列操作が非常にまどろっこしく感じてしまいますが、List::UtilとかList::MoreUtilを使うとかなりRに使用感が近づくので好きなモジュールです。
しかし、cumsum相当の関数がないので、あるとうれしいなと思って作ってみた。（すでにあるのかもしれないけど）

use strict;
use warnings;

print join(" ", cumsum(@ARGV));

sub cumsum{
  my $v = 0;
  map{ $v+=$_; } @_;
}

$ perl cumsum.pl 1 2 3 4 5 6 7 8 9 10
1 3 6 10 15 21 28 36 45 55

2行くらい書けば、という気もしないではない。