Select Code to Download

{
    id      => integer,
...
        { ... },
    ],
}

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

         foreach my $var ( keys %elem ) {  
          if ($var->{id} == $form->{"id"}){

#!/usr/bin/env perl -l

...

print '*** AFTER ***';
print Dumper $form;

*** BEFORE ***
$VAR1 = {
...
                    }
                  ]
        };