Shell Programming and Scripting

hi
i got a file called essay which contain few pages with many paragraphs. now i wanna with PERL to produce another file which called Essaylist that contain a sorted list of words that appear in the file essay.

the format for Essaylist:
$word found $times times on page a b c....
where $word is the word appear in the file, $times is the times that the word appear in the file and a b c is the page number that the word appeared.

i did something like that

Code:

file = essay

# Nothing has been seen
%seen = ();

# read words from input
while (<$file>)
{
	while ( /(\w['\w-]*)/g)
	{
		# Increment the counter
		$seen{lc $1}++;
	}
}

# output hash in a 
foreach $word (sort {  } keys %seen)
{
	print "$word found $seen{$word} times on pages $page\n";
}

the code above is not working, so can anyone please help me?