Select Code to Download

use warnings;
use strict;
...
$href->{delete $_->{name}} = $_ for @$aref;

print Dumper $href;

$VAR1 = {
          'Adam' => {
...
                     'months' => 1
                   }
        };