Select Code to Download

...
  my @test = ();
...
          
  }
...

 
 $VAR1 = {
...
           'CODE' => '6',
         };

 

...
           'Number' => 'HPO',
           'CODE' => '6',
         };