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

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