Select Code to Download

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

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