Select Code to Download

use strict;
use warnings;
...

print Dumper(\@result);

$VAR1 = [
          {
...
            'ID' => '8765'
          }
        ];