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