Select Code to Download

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

@different=grep { $hash1{$_} ne $hash2{$_} } keys %hash1;
foreach (@different) {
  print "hash1{$_}: $hash1{$_}\n";
  print "hash2{$_}: $hash2{$_}\n--\n";
}