> perl -e "my @y;$y[3]=undef; show(@y); x(@y);show(@y);sub show{my $count=0;print $count++, qq[ : $_;\n] for @_;print qq[----\n\n]};  sub x{ @_[3,4,5,6,8]=(3,4,5,6,939);show(@_)}"

--output--
0 : ;
1 : ;
2 : ;
3 : ;
----

0 : ;
1 : ;
2 : ;
3 : 3;
4 : 4;
5 : 5;
6 : 6;
7 : ;
8 : 939;
----

0 : ;
1 : ;
2 : ;
3 : 3;
----