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