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