my @array = (1,2,3);
    $_ *= 2 for @array;
    print "@array\n";     # prints: 2 4 6