while (<>) {
    chop;
    my @words = split;
    foreach $wd (@words) {
        next if length($wd) < 5;
        $count{$wd}++;
    }
}

foreach $w (keys %count) {
    print "$count{$w} $w\n";
}

##</code><code>##

2 usurpations,
2 purpose
1 people.
1 obstructed
1 formidable
1 obstructing
1 uncomfortable,