#!/usr/bin/perl -w
print "Please enter a list of words to be entered (end w/ eof) : \n";
@input = <>;
foreach (@input)
{ 
   chomp;
   $count{$_}++;
}
foreach (sort keys %count){
   print "$_ $count{$_}\n";
}