Select Code to Download

sub x{ @_[3,4,5,6,8]=(3,4,5,6,939);show(@_)}

my @y;$y[3]=undef;

x(@y);

x($y[0],$y[1],$y[2],$y[3]);

@_[3,4,5,6,8]=(3,4,5,6,939);