sub add { foreach (<@v>) { my $v += $_; } }