I admit, I have to reactivate my SQL knowledge .... Maybe List::Util can help you:

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