#!/usr/bin/perl

sub suma
  {
    $_[0]+$_[1];
  }

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