Select Code to Download

use strict;
use warnings;
...
}

print Dumper(\@result);

 {'ID' => '1212', 'Name' => 'JOE'     , 'Number' => 'WW3', 'CODE' => '
+10',},