DB<237> sub tst (_;@) { dd \@_ }

  DB<238> $_=666; @a='a'..'c'; $a='A'

  DB<239> tst
[666]

  DB<240> tst $a,1,2,3
["A", 1, 2, 3]

  DB<241> tst $a,@a
["A", "a", "b", "c"]

  DB<242> tst @a                         # OOPS
[3]