Select Code to Download

#!/usr/bin/perl

...
  }

use Data::Dump 'dd'; dd 'test_data', $test_data, 'test', \@test;

(
  "test_data",
...
    { CODE => 6, ID => 8765, Name => "JEAN", Number => "HPO" },
  ],
)