#!/usr/local/bin/perl

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

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