sub add {
  return $_[0] + $_[1];
}
# ...or...
sub add {
  my ( $left, $right ) = @_;
  return $left + $right;
}