while(<>){
    chomp;
    my @s = split /\t/,$_;
    my $count = $s[6];
    if($count > 10){
        print $_,"\n";
    }
}