Select Code to Download

WORD: while (my $word = pop @words) {
   # lower-case it
...
   # If there's no entry, add a new entry
   push @counta, [ $word, 1 ];
}

WORD: while (my $word = pop @words) {
   # lower-case it
...
   # count, if not found create new entry.
   $counth{$word}++;
}

$ perl t.pl

...
array     41.5/s      372%        --      -98%
hash      2070/s    23419%     4887%        --

#!/usr/bin/perl
...
}

=cut