+my $groups = kbchars(\%rows);
+$groups->{flag}{g5} = [greek =>
+ "a different greek letter not corresponding with latin transcription"
+];
+while (my ($key, $chr) = each %rows) {
+ $groups->{def}{''}{$key}[0] =~ s/g6/g5/ if $chr =~ /\A\p{Greek}/;
+}
+