#!/usr/local/bin/perl 

sub add {
    return $_[0] + $_[1];
}

sub result {
    my $sum = shift;
    $sum = add($sum, shift) while @_;
    return $sum;
}

print result(@ARGV);