Select Code to Download

use strict; use warnings; 
my $data=[]; 
...
use Data::Dumper; 
print Dumper($data);

$VAR1 = [
          {
...
            'code' => 'YYK'
          }
        ];