Another solution:

++$any{$_}
   for
      keys(%hash1),
      keys(%hash2),
      keys(%hash3),
      keys(%hash4);

for (keys(%test_hash)) {
   print("$test_hash{$_}\n")
      if !$any{$_};
}
[download]