use strict;
use warnings;

my @fields;
push @fields, {fooddebits => 55, foodcredits => 22};
push @fields, {fooddebits => 12, foodcredits => 10};

for (@fields) {
    print $_->{fooddebits} + $_->{foodcredits}, "\n";
}

__END__
77
22