Select Code to Download

use Data::Dumper;
use strict;
...
}
close DATA;
print Dumper($data);

$VAR1 = {
          'AH2S21003' => [
...
                           ]
                         ]
        };