DB<112> use Data::Dump qw/pp/

  DB<113> sub tst { pp (scalar @_ ? {@_} : {}); pp {@_};()} 

  DB<114> tst
{}
{}

  DB<115> tst a
{ a => undef }
{ a => undef }

  DB<116> tst a,1
{ a => 1 }
{ a => 1 }