>cat filename
abc
abc
def
ghi
ghi
ghi
ghi
abc
abc

#! /opt/third-party/bin/perl
                                                                                 
my $file1 = $ARGV[0];
open(fh, $file1) || die "Unable to open the file : $file1 <$!>";
                                                                                 
@ele = ();
@count = ();
$index = 0;
$change = 0;
                                                                                 
while( chomp($fileContent = <fh>) )
{
  $reccnt++;
  $index = 0;
  $change = 0;
  foreach (@ele) {
    if( $_ eq $fileContent ) {
      $count[$index]++;
      $change = 1;
      last;
    }
    $index++;
  }
  if( $change eq 0 ) {
    push(@ele, $fileContent);
    push(@count, 1);
  }
}
                                                                                 
$index=0;
foreach (@ele) {
  print "$_####$count[$index]\n";
  $index++;
}
                                                                                 
exit 0

#! /usr/local/bin/perl

open(FH, shift) || die "Unable to open the file : $file1 <$!>";

while( <FH> )
{
        @words=split;
        foreach $word (@words) {

                print "word =", $word ,  "\n";
                $counts{$word}++;
        }
}
foreach $word (sort keys %counts) {
        print "word = ", $word, "  count = ",  $counts{$word}, "\n";
}

#! /opt/third-party/bin/perl
                                                                              
open(FH, shift) || die "Unable to open the file : $file1 <$!>";
                                                                              
while( chomp($fileContent = <FH>) )
{
  $counts{$fileContent}++;
}
foreach $word (sort keys %counts) {
  print "$word###$counts{$word}\n";
}

close(FH);

#!/usr/bin/python
data = open("data.txt").readlines() #get data into array
data = [i.strip() for i in data]  #strip newlines for each element
unique = set(data) #get unique elements
for element in unique:
 	print "%s has %i counts." % ( element, data.count(i) )

abc has 4 counts.
ghi has 4 counts.
def has 1 counts.