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