GetOptions(
    'u|unique' => \my $unique,
);
open F,'/Users/gupta567varun/Desktop/AAC_SJ.out.tab',or die $!;
while(<F>){
    chomp;
    my @s = split /\t/,$_;
    my $count = $s[6];
    if($count > $unique){
        print $_,"\n";
    }
}
close F;

##</code><code>##

#!/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";
    }
}