@topX = (-1) x 20;
...
        $topX[ $_ ] < $sim and splice( @topX, $_, 0, $sim ), pop( @topX ), last for 0 .. 19;