#!/usr/bin/perl

sub suma
  {
    my $s = 0;  # en realidad, no hace falta
                    # inicializar
    my $x;

    foreach $x( @_ )
      {
        $s += $x;
      }
    $s;
  }

print suma(12,5,21,14), "\n";
print suma(1..5), "\n";  # 1+2+...+5