sub blartg { my $foo = shift; . . . sub blartg { my $foo = shift; my $bar = shift; my $baz = shift; ...