Select Code to Download

sub pointer_to_element {
  require List::Util;
  return List::Util::reduce(sub { \($$a->{$b}) }, \shift, @_);
}

while(<DATA>) {
        chomp;
...
        my $value = pop @chunks;
        push @{ pointer_to_element($DATA, @chunks) }, $value;
}