use List::Util qw( sum );
my $sum_debit = sum map { $_->{fooddebits} } @fields;