...
 for my $rec (@hits) {
    print "====\n";
    print "$_ => $rec->{$_}\n" for sort keys %$rec
 }
 ...