use Algorithm::Loops qw( MapCarU ); use List::Util qw( sum ); my @items = map { $_->{items} } @sets; my @totals = MapCarU { sum( @_ ) } @items;