Select Code to Download

my $data = {};
while (<DATA>) {
...
object.prop.subprop.[1].name = bar
obj.prop.[0] = blah
obj.prop.[1] = 1000

{
  obj => { prop => ["blah", 1000] },
  object => { prop => { subprop => [{ name => "foo" }, { name => "bar"
+ }] } },
}

sub dive {
    my ($ref,@path) = @_;
...
print dive( $data, qw/ obj prop [0] / ), "\n";   # prints "blah"
print dive( $data, qw/ object prop subprop
    [1] name / ), "\n";                          # prints "bar"