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