- my @az = map { @$_ } grep { ref $_ eq 'ARRAY' } @table;
- print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @az] : \@az);
+ print $glyphs->table([map {
+ ref $_ ne 'ARRAY' ? ".>$scriptname{$_}"
+ : exists $get{uc} ? map {uc} @$_ : @$_
+ } @table]);