my $sum = 0; $sum += 2 * $_ foreach @myvec;