Re: Rookie question

[Athanasius]

in reply to Rook question

Hello squimby, and welcome to the Monastery!

Any tips for 'Perl'ifying this?

Building on NetWallah’s answer:

sub total
{
    my $sum = shift;
    $sum += $_ for @_;
    return $sum;
}

See shift and Statement Modifiers.

Update: Also read-up on $_ in General Variables.

Hope that helps,