Select Code to Download

#!/usr/bin/perl -w
use strict;
...
# print output: total entities, and sorted number of each
print "\n $i  entities\n";
print "$_ x $parsed{$_}\n" for sort keys %parsed;