my @array = (1,2,3);
    for my $e (map $_, @array) {
        $e++; # or whatever
    }
    print "@array\n";