http://www.perlmonks.org?node_id=999737


in reply to Rook question

another solution: 


sub total {
   my $sum =0;

    map { $sum += $_ } @_;
    return $sum;

}

[download]
Couldn't resist... :-)

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

In Section Seekers of Perl Wisdom