perl -e "sub foo($$$){print @_} @x=(1,2,3); @y=(1,2); @z=(1); foo(@x,@y,@z);"
321