Help for this page
sub scribble { for (@_) { ... }; @_ = (); };
sub scribble { while ($_ = shift) { ... }; };