#!/usr/local/perl5/bin/perl -w

chomp(@entree = <STDIN>);

foreach $mot (@entree)
{
    $nombre{$mot}++;
}

foreach $mot (keys %nombre)
{
    print "Le mot ".$mot." apparait ".$nombre{$mot}." fois.\n";
}