What have you tried so far? At what point are you stuck? We're happy to help, but what are you actually asking? Are you asking for advice on whether Perl/Tk is good for this, or are you asking why the Tk button clicked event is not properly invoking your callback with expected arguments?
How to ask questions the smart way.