# Five in prototype...
sub foo($$$$$)
{
     my ($self, $foo, $bar, $baz, $bim, $bam) = @_;  # Six in list
     # ...
}