Why it doesn't work is explained nicely by dave_the_m in a related post Binding TK events.

\&mysub creates a reference to the sub mysub;

\&mysub(...)
[download]

calls mysub, then creates a reference to the returned value

and by davidj in the same post

"When you want to pass arguments to a callbakc, specify an array reference, with the callback code reference as the first element and the callback arguments as the subsequent array elements" In other words: instead of

$input->bind('<Return>', [\&mysub($arg)]);
[download]

you need to have

$input->bind('<Return>', [\&mysub, $arg]);
[download]

Thus... what happens is instead of binding my_test to 'can', you are executing 'my_test' and binding the result to 'can'. This happens I guess in the main_loop.

UPDATE: Fixed format of quoted text