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

my $infile;
my @fields;
my $i;
my $j;

GetOptions (
        "infile=s" => \$infile,
);


open INFILE, "<$infile" or die $!;
#open RES, ">result.txt" or die $!;

while (<INFILE>){



        @fields = split(/\t+/, $_);
        my ($name, $chr, $location, $gen, $dom, $pval, $fst) = @fields[0..6];

}