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

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