sub foo { 
   my ($a,$b) = @_;
   return $a + $b;
}