Select Code to Download

my @column1;
my @column2;
...
    print join "\t", $column1[$row], $column2[$row],$column3[$row],$co
+lumn4[$row];
    print "\n";
};

my @column;

...
    print join "\t", map { $_->[ $row ] } @column;
    print "\n";
};