I guess you want to traverse the array, and then traverse each hash elements.

Depending on what the data's being used for, for quickly printing any complex data structure you can often avoid writing any loops yourself just by using YAML (or Data::Dumper if you prefer):

use YAML qw<Dump>;
print Dump \@data;
[download]

Smylers