for (my @mult = @list) { $_ *= 2 }