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