#!/usr/bin/perl -w
use strict;
my %assoc;

while (<>) {
  chomp;
  if (! exists ($assoc{$_})) {
    $assoc{$_} = 1;
  } else {
    $assoc{$_} ++;
 }
}

# Output loop:
foreach (keys %assoc) {
  print $_ . "=" . $assoc{$_} . "\n";
}

exit;