my $VAR3 = { map { delete $_->{name} => $_ } @$VAR1 };