sub foo { 
   my ($x, $y) = @_;
   return $x + $y;
}