in reply to Sum of values in an array

One way: 
use warnings;
use strict;
use List::Util qw(sum);

my @pe_total = (
    {
    'COMP_TOTAL' => '2445.00'
    },
    {
    'COMP_TOTAL' => '728.00'
    }
);

print sum(map { $_->{COMP_TOTAL} } @pe_total), "\n";

__END__

3173

[download]

See also:

Replies are listed 'Best First'.
Re^2: Sum of values in an array
by Anonymous Monk on Sep 25, 2014 at 19:51 UTC
    Would it be possible to be done without loading a Perl Module?
[reply]

      List::Util is in the Perl core. Try it out, you should already have it installed.

      Otherwise, BrowserUk has given you an alternative method.

[reply]
[reply]

In Section Seekers of Perl Wisdom