How about you eliminate everything not pertinent to the actual problem, but include the problematic loop structure (which seems to be missing from your sample) and generate something that could run stand alone?

As presented there is too much irrelevant cruft and too many missing important pieces to determine what your problem is.

A few general tips though:

don't use & to call subs. If you want to pass parameters through, do it explicitly

Don't use global variables. In fact, combining this with the previous tip, -command => sub { &Exit } becomes -command => sub {Exit ($feedback, @_)} and in Exit you:

sub Exit {
    $_[0] = "Destroy!";
    $mw->destroy ();
}
[download]

Use perltidy.