I think you may be looking for the square bracket form of callback

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

so try

$top->protocol( DELETE_WINDOW',
    [\&my_clean_up_routine, $top, $another_parameter] );

[download]
[download]