When I change the background on an entry widget it seem to permanently loose a small amount of memory. In the code below if I have selected the "no_color" option memory is stable. If I don't select this option memory grows until it exhausts what is available.
if (! $no_color){
if ($machine_status{$s} eq "Responded") {...