#!/usr/bin/perl

sub suma
  {
    my($a,$b) = @_;

    $a+$b;
  }

print suma(2,3), "\n";