#!/usr/bin/perl
use strict;
my (%words, $key);

open(FILE, "<test.txt");
while(<FILE>) {
  chomp($_);
  $words{$_}++;
}
close(FILE);

foreach $key (keys %words) {
   print "$words{$key} $key\n";
}
exit;