If you know it is an array:

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

See also:

• ref
• perldsc