Wow, you really need to provide some code, showing what you are doing

I'm guessing here, but something along the lines of the following will do what I think you want:

print $VAR4{CHECK_2}{JAPAN}{A} unless exists $VAR2{CHECK_1}{JAPAN}{A};
[download]