Select Code to Download

use Data::Dumper;
use strict;
...
@$AoH = map { { page => $_ };{ chap=>$_ } } keys %uniq;

print Dumper ($AoH);

$VAR1 = [
          {
...
            'chap' => 'spring'
          }
        ];