push @line, colored(sprintf('%2d', scalar @{$trigraphs{$k}}), 'underline') . colored(sprintf('%s', $k), 'underline') . colored(sprintf('%-2d', scalar keys
%{$flanks{$k}}), 'underline');

##</code><code>##

push @line, sprintf('%2s%s%-2s', colored(scalar @{$trigraphs{$k}}, 'underline'), colored($k, 'underline'), colored(scalar keys %{$flanks{$k}}, 'underline')
);