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