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