foreach my $key ( @{ $form->{PR} } ) {