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