#!/usr/bin/perl
# I hight sigma.pl

use 5.8.0;
use warnings;
use strict;
use utf8;

sub Ó~N {
    my $sum = 0;
    $sum += $_ for @_;
    $sum;
}

print Ó~N 1..5;
print $/;