I googled "MVC Tk" and had some hits, mostly considering Python/Tkinter though.

But as far as I can see you have to abstract the Tk logic into a class, should works pretty much the same way in Perl.