Here's a recursive sub that does that:

sub rec_del;
sub rec_del {
    my ($hash, @keys) = @_;

    return unless @keys;
    my $key = shift @keys;
    return unless exists $$hash{$key};
    if (@keys) {
        rec_del $$hash{$key}, @keys;
        delete $$hash{$key} unless %{$$hash{$key}};
    }
    else {
        delete $$hash{$key}
    }
}
[download]

Call it as rec_del $hoh, $comp, $cmd, $tc1.