push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code
for qw( script category block );
push @{ $charlist{version}->{$_} }, (chr $code) x ($agemap->{$code} <= $_)
push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code
for qw( script category block );
push @{ $charlist{version}->{$_} }, (chr $code) x ($agemap->{$code} <= $_)