thanks for all the suggestions, and yes the output should look like the output that anonymous monk posted above.

I can read the file into an array, but I wasn't sure how to proceed through the array to average columns 6 and 7.

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

}
[download]