my @keys = sort keys %cats;
my $cnt = scalar @keys;
...
@keys = keys %ids;
$cnt = scalar @keys;
...
@keys = keys %ret;
$cnt = scalar @keys;