foreach my $record_id (keys %legacy_data) {
  my $legacy_data = $legacy_data{$record_id};
  my $new_data = $new_data{$record_id};
  ....
  # here go all the tests you said
  ....
}