My favorite way to deal with nested structures:

use Data::Alias;

...

alias my @rows = @{ $data };

for my $row (@rows) {
    alias my @col = @{ $row };
    for my $col (@col) {
        print $col,"\n";
    };
};
[download]