Help for this page

Select Code to Download

Select or download this

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