@servers = map { $_->{selected} ? $_->{obj} : () } @servers;

##</code><code>##

@servers = map  { $_->{obj} }
           grep { $_->{selected} } @servers;