Select Code to Download

name1 ABCD
name2 BCD
name3 ASCDA
name4 AAAAA

name1 0.2
name5 0.3
name4 0.0002
name7 0.222

use warnings;
use strict;
...
    }

close $fh_data_2 or die "closing '$file_2_name': $!";

c:\@Work\Perl\monks\gghelpneeded>perl check_hash_vs_keys_1.pl file_1.d
+at file_2.dat
'name1' -> 'ABCD'
'name4' -> 'AAAAA'