sub foo
{
    my $onlyarg=shift; # @_ is the default argument for shift
    # more code
}

##</code><code>##

sub bar
{
    my ($huey,$dewey,$louie)=@_;
    # more code
}

##</code><code>##

sub baz
{
    my $onlyarg=$_[0];
    # more code
}

##</code><code>##

sub moo
{
    my $huey=shift;
    my $dewey=shift;
    my $louie=shift;
    # more code
}

##</code><code>##

sub ohnononononopleaseno
{
    my $huey=$_[0];
    my $dewey=$_[1];
    my $louie=$_[2];
    # more code
}

##</code><code>##

sub foo2
{
    my ($onlyarg)=@_;
    # more code
}