The following worked in scalar context without using keys to give list context. An empty hash gives 0 in scalar context.

delete $hoh{Testcase}{comp}{cmd} unless %{$hoh{Testcase}{comp}{cmd}};
delete $hoh{Testcase}{comp} unless %{$hoh{Testcase}{comp}};
[download]