Select Code to Download

$VAR1 = {
          'key' => {
...
                                      ]
                                    ]
                        }

for my $elmt (@{$book->{$key}{data}}) {
    ....
}