Select Code to Download

my @items = qw(foo poot bar foo baz poot foo);
my %counts;
...
++$counts{$_} for @items;

print "$_: $counts{$_}\n" for sort keys %counts;

use strict;

...
}

print "$count " if defined $count; # Need to process the last group