my $infile = $ARGV[0];
open (IFILE, "<", $infile) || die "Cannot open : $!\n";
## read the input file
my @data;
my $COLUMNTOPARSE;
my $local;
while (<IFILE>) {
        chomp;
        my @local = split ('\t',$_);
        $COLUMNTOPARSE = $local[$ARGV[1]];
        push @data; $COLUMNTOPARSE;
}
close IFILE;
my $count = @data;