print "$_\n" for @{ $data->{genres} };