Help for this page
use v5.12;
while ( my ($key, $value) = each %count) {
pebbles => 1 dino => 1 wlima => 1 fred => 3 barney => 2