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