my %checked = map { $_ => 1 } $qry->param("GRU$Za");
if (keys %checked > 1) {
	delete $checked{'E'};
} elsif (keys %checked == 0) {
	%checked = ('E' => 1);
}