- my ($id, $cols) = @{$row};
- my $title = $scriptname->{"digits_$id"} || $scriptname->{$id} || $id;
- print $glyphs->row([ ".>$title", @{$cols} ]);
+ my ($id, $info) = @{$row};
+ my $title = $info->{title} // $scriptname->{$id} || $id;
+ print $glyphs->row([ ".>$title", @{$info->{list}} ]);