Select Code to Download

%hash
    $id
...
                       subkey3 => (scalar)
                     }
            list_1 = [ ]

my $value = $hash{$id}{$position}{type_a}{subkey2};

my $value = get_typea_sk2( $id, $position );

...
{
    return $hash{$id}{$position}{type_a}{subkey2};
}

%hash
    $id => $objref

%hash
    $id
        $position => $objref
        $position => $objref

my $obj = get_object( $id, $position );
# use methods on $obj to get data
...
{
    return $hash{ $_[0] }{ $_[1] };
}