A couple of side notes that will simplify your code somewhat: once you've got the array of words, you don't need a foreach loop with the $Counter</code> increment to get the # of words in the array; a simple my $count = @words will do. Another little note: save some keystrokes,

$sentence_count{$count}++;
[download]

HTH