my $cnt = keys %cat;
...
$cnt = keys %ids;
...
$cnt = keys %ret;