foreach $key (keys(%db)) {
   foreach $record (@{$db{$key}}) {
      foreach $field (@$record) {
         ...
      }
   }
}