-command => &numpress($i))

##</code><code>##

   -command => sub { numpress( $i ) }
# or
   -command => [ \&numpress, $i ]