foreach my $var ( @{ $form->{PR} } ) {
	if ($var->{'id'} == $form->{'id'}) {
		print qq|elem->key $var->{id} eq $form->{"id"}\n|;
		print qq|\t\t cleared? $var->{cleared} $form->{"cleared"}\n|;
		if ( $var->{cleared} != $form->{"cleared"} ) {
			$var->{cleared} = $form->{"cleared"};
			print qq|\t\t FIXED $var->{cleared} $form->{"cleared"}\n|;
		}
	}
	else {
		print  qq|var id: $var->{id} ne form $form->{"id"}\n|;
	}
}