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

##</code><code>##

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

##</code><code>##

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