sub liida{
  (my $a, my $b)=@_;
  return $a+$b;
}
print liida(3, 2)."\n";