my $groups = kbchars(\%rows);
# replace rare punctuation distinctions by symbols
-$groups->{def}{''}{$_} =~ s/g[78]/g6/ for keys %rows;
+$groups->{def}{''}{$_}[0] =~ s/g[78]/g6/ for keys %rows;
-$groups->{def}{''}{$_} = 'g7'
+$groups->{def}{''}{$_}[0] = 'g7'
for grep { $rows{$_} =~ /[\x{2500}-\x{259F}]/ } keys %rows;
$groups->{flag}{g7} = ['drawing', 'box drawing or block elements'];
-$groups->{def}{''}{$_} = 'g8' for keys %compat; # mostly U+1FBxx
+$groups->{def}{''}{$_}[0] = 'g8' for keys %compat; # mostly U+1FBxx
$groups->{flag}{g8} = ['legacy',
'drawing symbols best represented by Unicode 13.0'
. (exists $get{compat} && ', converted to compatible equivalents')