gries.pl

 @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";
 }