foreach my $row (@{ $data }) {
    print "-- New row\n";
    foreach my $col (@{ $row }) {
        print $col,"\n";
    };
};