in reply to Re^6: Restore the original order of an array after sort and performing some funchtion on array values
in thread Restore the original order of an array after sort and performing some funchtion on array values

Thanks a lot. Honestly it is not an exam,

Then all you need to finish the task is a last line of: 

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

[download]

It'd still be a good idea to make sure you understand how the whole code works.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"I'd rather go naked than blow up my ass"
  • Comment on Re^7: Restore the original order of an array after sort and performing some funchtion on array values
  • Download Code

In Section Seekers of Perl Wisdom