sub summer { my $sum;
    $sum += $_ for @_;
    $sum } print summer (split);