##
( @{ $ipairs{$fk}{$dline} }{qw/head effect pvalue/} ) = $ldata{$dline} =~ /^(.*)\s+(\d\.\d+)\s+\d\.\d+\s+(\d\.\d+)$/;
##
##
$pvt = $ipairs{$fk}{$pair};
if($pvt->{'pvalue'}){
unless($hl){
$hl = $pvt->{'head'};
}
$n++;
$z+= qnorm($pvt->{'pvalue'});
}