Help for this page
chomp @$_ for @array; # or chomp map @$_, @array;
chomp map $_->[2], @array;
while (<FILE>) { next if /^#/ or tr/\t// != 6; chomp; push @array, [ split "\t" ]; }