my @sorted = map { $_->[1] }
               sort { $b->[0] <=> $a->[0] }
                 map { [ (split(/\|/,$_))[0], $_ ] } @stats;