-command => sub{push(@Sel, $n)} && sub{ $Selected[$i] = defined $Selected[$i] ? undef : $n;}

##</code><code>##

-command => sub{ $Selected[$i] = defined $Selected[$i] ? undef : $n;}