Select Code to Download

use strict;
use warnings;
...
for my $tag (sort keys %count) {
    print "$tag:\t$count{$tag}\n";
}

$VAR1 = {
          'CC' => 0,
...
NNP:   3
RB:    2
VBZ:   1