Du solltest nicht immer wieder ein neues Label erzeugen, sondern immer nur das alte bearbeiten (z.B. mit $infolabel->configure(-text => $ausgabe)).

Du musst als das Label außerhalb der Subroutine erzeugen...