Select Code to Download

sub remove {
    my ($p, $d) = @_;
...
        $_[0] = \%newhash;
    } 
}

for (values %$p) {
            @newhash{keys %$_} = values %$_;
        }
        $_[0] = \%newhash;

$W={
    'A' => {
...
          }, 
        'W' => 99,
    };