Change event_function(\$frame) into event_function($frame) and avoid using $$top, since $top is already a reference.

You should also Use strict warnings and diagnostics or die, and you should post a complete code snippet which demonstrates your problem (How (Not) To Ask A Question), as describing what happens with a mysterious module (Tk) is not nearly as useful as demonstrating what happens.