use Data::DRef qw( set_value_for_keys );
  set_value_for_keys( \%big_hoh, $data, @key_list );