Hrmmm...are the keys all the same, and do you need to know which hash the differences came from? A quick solution that pops to mind is:

for $x (keys %one) {
  delete $one{$x} if $two{$x} eq $one{$x};
}

## Show non-matching keys:
for $x (keys %one) {
  print "$x ($one{$x})\n";
}
[download]

It destroys the hash, and does not check for keys that are in two but not one. For that, perhaps something like this:

for $x (keys %one) {
  print "DIFF: $x\n" if $one{$x} ne $two{$x};
}
for $x (keys %two) {
  print "DIFF2: $x\n" unless $one{$x};
}
[download]