Select Code to Download

sub _getBuilderList {
        my $self = shift;
...
        @cities = grep { $_->{SELECTED}++ if $_->{id} == $selection; $
+_ } @cities;
        return \@cities;
}