Select Code to Download

my %map = (
    typeA => sub { $_[0]->{key1}[3]{key2} },
...
    typeC => sub { $_[0]->[1]{key4} },
    # ...
);

my %map = (
    typeA => "{key1}[3]{key2}",
...
    my $lol   = $elem->{data};
    print eval "\$lol->$xpath", "\n";
}

Value1
Value2
Value3