Select Code to Download

->{foo}->{bar} 
or 
->{foo}->[0]->{bar}

sub rec_data {
    my $path = shift; # ->{foo}->{bar}
...

# search
my @results = rec_data('->{foo}->{bar}', $data);