#!/usr/local/bin/perl

# this version eiminates duplicate lines, and prints them out
# in an arbitrary order
# it also tells you how many time each line was seen

foreach (  ) { $unique{$_} += 1 ; }
foreach (keys(%unique)) {
  print "($unique{$_}):$_" ;
}