sub foo {
 print "@_\n";
 push @_, 99;
}

@a = (1,2,4);
foo(@a, 666)