Select Code to Download

#! perl
use strict;
...
push @array, { 'chapter' => $_, 'name' => $terms{$_} } for sort keys %
+terms;

print Dumper(\@array);

$VAR1 = [
          {
...
            'chapter' => '2'
          }
        ];