my @y = map { state $z = 0; $z += $_ } @x;