my %keys;
while(<>)
{
  chop;
  $keys{$_}++;
}

foreach my $k ( keys %keys )
{
  print "$k: $keys{$k}\n";
}