Select Code to Download

chomp @$_ for @array;
# or
chomp map @$_, @array;

chomp map $_->[2], @array;

while (<FILE>) {
    next if /^#/ or tr/\t// != 6;
    chomp;
    push @array, [ split "\t" ];
}