while (my ($word, $occurence) =