Help for this page
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->{ $_ } ); }