my $ref = \%database;
  $ref = $ref->{$_} //= {} for @$fields;