while (<FILE>) {
  next if (/^#/);
  @fields = split "\t" , $_;
  next unless (@Fields == 7);
  chomp $Fields[6];
  push @Array , [ @Fields[0,3,6] ];
}