DB<7> sub tst ($;$) {print scalar @_ }
 
  DB<8> tst(my($x,$y))
1