sub mycheck { if (@_ == 0) { # No parameters passed, assume default @_ = (''); }; my ($db) = @_; ... };