arrays - ネストされたハッシュ/配列データ構造から値を取得する

Question

Perl を使用していくつかの API クエリを実行し、Data::Dumper を使用してコンテンツを出力し、できればいくつかのキーを変数として割り当てています。

   $client->request( "GET", "interfaces/detail", $opts );
    my $out = decode_json $client->responseContent();
    print Dumper $out;

ただし、特定のキー (b4) の出力を出力したり、変数として定義したりすることはできません。

print $out{'b4'};

これは JSON 形式の HASH/ARRAY/HASH/HASH/Key=>Value のネストされたデータ構造によるものだと思います。

  DB<1> x $out
0  HASH(0x493f290)
   'data' => ARRAY(0x494e2e0)
      0  HASH(0x4475160)
         'a1' => '11'
         'a2' => '12'
         'a3' => '13'
         'a4' => HASH(0x494e560)
            'b1' => '21'
            'b2' => 22
            'b3' => '23'
            'b4' => '24'
            'b5' => '25'
            'b6' => '26'
            'b7' => '27'
         'a5' => '14'

参照されたレイアウトから値「24」を取得するにはどうすればよいですか?