Help for this page

Select Code to Download


  1. or download this
    my %sentence_count;
    my @sentences = (
    ...
    foreach (keys %sentence_count) {
            print "$sentence_count{$_} sentences have $_ words\n";
    }