#!/usr/bin/perl
use strict;
use warnings;
 
my %words;
while (<> ) { # donc on va passer le fichier sur STDIN avec cat ou autre
  chop; # On vire le caractère de fin de ligne
  tr /.,!?:/ /; # On remplace la ponctuation (en rajouter s'il en manque) par des espaces
  foreach (split /\s+/, $_) { # on splitte la ligne sur les espaces
     $words{$_}++;
  }
}
 
# Après, a vous de choisir les critères de tris vous convenant pour l'affichage
# j'ai choisi ici d'abord le nombre d'occurences (ordre décroissant), puis la taille (ordre croissant), puis l'ordre alphabétique (ordre croissant)
foreach (sort {$words{$b} <=> $words{$a} 
         or length($a) <=> length($b) 
           or $a cmp $b } (keys %words)) {
  print "$_: $words{$_}\n";
}