Help for this page
sub foo { my %args = (1 == @_) ? (named_arg => shift) : @_; # etc }
sub foo { my $args = shift; ... } # etc }