sub _getBuilderList {
        my $self = shift;
        my $selection = shift;
 
        my @cities = $self->param('DBH')->selectall_array("SELECT id, buildername FROM builder ORDER BY buildername", {Slice => {}} );
        @cities = grep { $_->{SELECTED}++ if $_->{id} == $selection; $_ } @cities;
        return \@cities;
}