As others already explained, sort is your friend. You could, however, improve your code by:

• parsing the file line by line, instead of slurping the entire file and splitting it in a array
• define what a 'word' is: does case matter? are punctuations/numers allowed?

assuming that case doesn't matter and words are defined by </code>\w+</code>, this code should work:

my %count;
while ( <FILE> ) {
    $count{lc $_}++ for /\w+/g;
}

print "$_ => $count{$_}\n"
    for sort { $count{$b} <=> $count{$a} || $a cmp $b} keys %count;
[download]

(notice the extra sort for equal ranking words)

HTH,
Paul