$top->bind( 'Tk::Entry', '<Enter>', \&your_subroutine );

##</code><code>##

$top->bind( 'Tk::Entry', '<KeyRelease>', [\&subroutine, Ev('K')] );