$ perl -E'$a="a,b,c,d";(undef,@_)=split/,/,$a;say "@_"'
b c d

$ perl -E'$a="a,b,c,d";@_=(split/,/,$a,2)[0];say "@_"'
a