sub li {
    shift;
    @_ ? (scalar @_, &li) : ();
  }
  print li qw(a b c d e f g);   # prints 654321