Change the selection line to:

my @topThree = grep ($_ > 0.4) @inOrder;
[download]

replacing 0.4 with whatever your selection threshold value is.