Select Code to Download

foreach (my ($key, $value) = each %linked_counts_by_abbr){
    print OUTPUT "$key => $value\n";
    }

>perl -wMstrict -le
"my %hash = qw(a 1 b 2 c 3 d 4);
...
a => 1
b => 2
d => 4