$pvalues{ $_ } = min( $pvalues{ $_ }, 1 ) for keys %pvalues;