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