$ perl -Mstrict -Mwarnings -E '
@_ = @ARGV;
∑

sub sum
{
    my $sum;
    $sum += $_ for @_;
    say $sum;
}' 1 2 3 4 5
15
$