DB<7> sub tst2  {print scalar @_ }
 
  DB<8> tst2( my ($a,$b,$c,$d))
4
  DB<10> tst2( my ($a,$b,$c))
3
  DB<11> tst2( my ($a,$b))
2
  DB<12> tst2( my ($a))
1
  DB<13> tst2( my ($a,$b,$c,$d)=(undef,undef,undef,undef))
4