my %newhash = map {
                    $_ => [{
                        map {
                            delete $_->{COMP} => $_
                        } @{$hash{$_}}
                    }]
                } keys %hash;