Select Code to Download

Most frequently occuring word    no of times occured
second most frequent word        no of times occured
....                             ....
....                             ....

%count = ();
    foreach $element (@words) {
...
  while ( ($k,$v) = each %count ) {
    print "$k => $v\n";
  }

the         150
it          85 
we          60
are         40

sub lexicon_generate
 {
...
}

&lexicon_generate();