Perl sub bound to Tcl proc returned -2 args, expected 1