sub some_function
{
   my ($first, $second) = @_;

   ...
}

sub some_method
{
   my ($self, $first, $second) = @_;

   ...
}