$total_sentence = @sentances;
foreach $sentence (@sentences) { 
  $count = scalar (split(/[^\w'a-zA-Z0-9_'-?]+/,$sentence)); 
  $sentence_count{$count}++;
}
print ("\nThere are a total of $total_sentence sentences in this text\n"); 
  
foreach(keys %sentence_count) {
  print ("\nThere are $_ sentences of $sentence_count{$_} words\n"); 
}