$top->bind('<KeyPress-KP_Left>' => \&left);
$top->bind('<KeyRelease-KP_Left>' => \&stop);