use Data::DRef qw( get_value_for_keys set_value_for_keys );
  my @keys = (1,2,3);
  my $href = {};
  
  # to store value
  set_value_for_keys( $href, 'somedata', @keys );
  
  # to fetch value
  my $data = get_value_for_keys( $href, @keys );
[download]