my @this_not_that=();
foreach (keys %hash1) {
  push(@this_not_that, $_) unless exists $hash2{$_};
}