for (@a) {
    my $b = $_; # Or do a deep copy, if necessary
    $b *= 2;
}

##</code><code>##

for my $b (map $_, @a) {
    $b *= 2;
}

##</code><code>##

for my $b (@{[@a]}) {