Select Code to Download

foreach $row (@array) {
    foreach $column (ref $row ? @$row : $row) {
        print "This is the \$column: ".$column."\n";
    }
}