Select Code to Download

my $file_A = read_file( "file_A" );
my $file_B = read_file( "file_B" );
...
  }
  return $hoa;
}

sub change_field_to_check {
...
foreach (keys %$file_A) {
  delete $file_A->{ $_ } unless exists( $file_B->{ $_ } );
}