Select Code to Download

sub lookup {
    my ($type, $ref) = @_;
...
        return $ref->[1]{key4};
    } # ...
}

my @LoANY = (
    {
...
    
    # ...
);

for my $elem (@LoANY) {
    print lookup($elem->{type}, $elem->{data}), "\n";
}

Value1
Value2
Value3

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

for my $elem (@LoANY) {
    print $map{$elem->{type}}->($elem->{data}), "\n";
}