Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @something=("in","a","bed","in","the","room","is","the");
- foreach $string (@something) {
- ++$counts{$string};
- }
- foreach $key (sort {$counts {$a} <=> $counts{$b}} keys %counts) {
- print "$key\t$counts)$key}\n";
- }
Add Comment
Please, Sign In to add comment