my $sum = 0;
foreach my $i (@myvec)
{
    $sum += 2 * $i;
}