foreach my $pair (@lpairs) {
	my $n = 0;
	my $z = 0;
	my $hl;
	my $pvalue = 0;
	my $pvt = 0;
	my $fk;
	foreach $fk (%ipairs) {
		if( exists $ipairs{$fk} &&  exists $ipairs{$fk}{$pair} &&  exists $ipairs{$fk}{$pair}{'pvalue'}){
		#if($ipairs{$fk}{$pair}{'pvalue'}){
			$pvt = $ipairs{$fk}{$pair}{'pvalue'};
			if($pvt){
				unless($hl){
					$hl = $ipairs{$fk}{$pair}{'head'};
				}
				$n++;
				$z+= qnorm($ipairs{$fk}{$pair}{'pvalue'});
			}
		}
	}
	if($n>2){
		$z = $z/sqrt($n);
		$pvalue = pnorm($z);
	}	
	if ($pvalue) {
		#printf "$pair -> %.4f\n", $pvalue; 
		printf OF "$hl %.4f $n\n", $pvalue;
	}

}