Select Code to Download

my %ext;
while (<>) {
...
   $ext{lc($1||"")}++;
}
printf "%-6s %d\n",$_||'<NONE>',$ext{$_} for sort keys %ext;