my %choice = map {$_ => $q->param($_)} grep /go_/, $q->param();