-choices => [
		map { { -name=>$TableHeaders{$_}, -value=>$_ } }
		grep { length $TableHeaders{$_}
			&& lc($TableHeaders{$_}) ne 'undef' }
		sort keys %TableHeaders ],