for(;@_;shift) {
        ...
        ... @_[0] ...

##</code><code>##

    foreach ( @_ ) {
        ...
        ... $_ ...

##</code><code>##

    foreach my $section ( @_ ) {
        ...