my @fields = qw(latestTime eCompressed eUncompressed iCompressed iUncompressed);

for my $i (0 .. $#$structure) {
    my $hr_record = $structure->[$i];
    print qq{record $i: };
    for my $field (@fields) {
        print qq{$field is $hr_record->{$field}, };
        }
    print qq{\n};
    }