- my ($input, $flags, $char, $desc) = @{ $info[++$i] };
- say sprintf('<tr><th><img src="%s" alt="%s"><td><kbd>%s</kbd><td>%s%s',
+ my ($name, $input, $flags, $char, $desc) = @{$row};
+ say sprintf('<tr><th class="s-light"><img src="%s" alt="%s"><td><kbd>%s</kbd><td>%s%s',