Select Code to Download

    $VAR1 = bless( { 
            'c_xcode' => 'J23-H0P',  
...
            's_zlist' => 'T71-K2L'
             }, 'Hash::MultiValue' );

    %form_hash = (
                    'c_xcode' => 'J23-H0P',  
...
                    's_zlist' => 'T71-K2L'
                );

my $form =  $posted->body_parameters;
my @k = keys %$form;
...
# "Experimental keys on scalar is now forbidden" when trying on 
# foreach my $key (sort(keys(  \%form_hash   ))) below.

    #!/usr/bin/perl
...
        }
    
    };