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