#!/usr/bin/perl-w
use strict;
use warnings;
use Data::Dumper;
use Getopt::Long;

my $unique;
GetOptions(
    'u|unique' => \my $unique,
);

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