sub fooge
{
     my ($foo, $bar, @baz) = @_;

     # ...

     if ($foo->isa('Acme::Frobnicator'))
     {
          die "Missing 'baz' parameter to fooge()\n" unless (@baz);
          $foo->frob(@baz);
          # ...
     }

     # ...
}

##</code><code>##

sub fooge
{
     my ($foo, $bar) = (pop, pop);
}

##</code><code>##

sub blarg
{
     my ($foo, $bar, $bork) = @_;

     # ...
     if (computer_is_on_fire())
     {
          die "Apocalyptic end of blarg(@_)\n";
     }
}