foreach $word(@words){
$Counter = $Counter+1;
#print("$word\n");
}
$sentence_count{($Counter)} = $sentence_count{($Counter)}sort by_num (keys (%sentence_count));
while (($sentence_count,$word_count) = 
each(%sentence_count)) {  
print ("\nThere are $word_count sentences of $sentence_count words\n"); 
}

sub by_num {
	if ($b < $a) {
		return -1;
	} elsif ($a == $b){
		return 0;
	} elsif ($b > $a){
		return 1;
	}
}