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