2 ms·Perl 6: .say for (bag($text.words) ==> sort {-*.value})[^10]by prakashk 13y agoPerl 6: .say for (bag($text.words) ==> sort {-*.value})[^10]