use vars '$x';
  sub li {
    $x = shift;
    @_ ? ($x, &li) : ();
  }
  print li qw(a b c d e f g);   # prints gggggg