use v5.12;

##</code><code>##

while ( my ($key, $value) = each %count) {

##</code><code>##

pebbles => 1
dino => 1
wlima => 1
fred => 3
barney => 2