Select Code to Download

$pval{$prev_join} = $prev_pval/$i;
$fst{$prev_join} = $prev_fst/$i;

open INFILE, "<$infile" or die $!;
chomp(my @lines = <INFILE>);
close INFILE or die $!;
...

    print $name."\t".$chr."\t".$location."\t".$gen."\t".$dom."\t".$new
+_pval."\t".$new_fst."\n";
}