Select Code to Download

foreach my $var ( @{ $form->{PR} } ) {
    if ($var->{'id'} == $form->{'id'}) {
...
        print  qq|var id: $var->{id} ne form $form->{"id"}\n|;
    }
}

var id: 10368 ne form 12594
var id: 12585 ne form 12594
...
elem->key 12594 eq 12594
         cleared? 0 1
         FIXED 1 1