Beim Screenshot kann man tatsächlich nichts erkennen. Vielleicht mal als PNG statt JPEG abspeichern?

Zum Problem: ich glaube, du solltest ein bisschen mit der globalen und den Item-spezifischen Hintergrundfarben experimentieren. Die globale setzt man mit $hlist->configure(-bg => ...), bei den itemspezisischen hilft ein Blick in die Tk::DItem-Dokumentation.