#!/usr/bin/perl

open (FH, "greek.txt");
while (<FH>) {
	chop($_);
	@lines = (@lines, $_);
}
close (FH);

foreach (@lines){
@tmp = split(/\s+/,$_);
@words = (@words, @tmp);
}

foreach (@words){
  $wc{$_}++;
}

foreach (sort(keys(%wc))){
  print "$_:  $wc{$_}\n";
}
