my @path = qw( A 2 H foo H bar A 1 );

my $data = [
 "foo",
 "bar",
  {
    foo => {
      bar => [
        5,
        6,
      ],
    },
  },
];

while ( @path ) {
  my $type = shift @path;
  my $index = shift @path;

  if ( $type eq 'A' ) {
    $data = $data->[$index];
  } else {
    $data = $data->{$index};
  }
}
print $data; # prints "6" (I hope)