use Data::Dref qw( set_value_for_keys );

  my %hash;
  
  set_value_for_keys( \%hash, 1, qw(a b c d) );
  set_value_for_keys( \%hash, 1, qw(a c d e) );