@a = (1..10);

sub x {
    foreach (@_) {
        $_++;
    }
}

x(@a);

print @a;  #prints 234567891011