for my $i (0..$#keys_raw) {
   $val_raw = $raw58{$keys_raw[$i]};
   $val_ref = $ref58{$keys_ref[$i]};
   next if ($keys_raw[$i] eq $keys_ref[$i] && $val_raw eq $val_ref);
   print "$keys_raw[$i] $val_raw $keys_ref[$i] $val_ref\n";
}