1 = 1
2 = 2
3 = 3
4 = 4
5 = 5

##</code><code>##

1 = 2
2 = 2
3 = 4
4 = 7
5 = 5
6 = 6 

##</code><code>##

use strict;
use warnings;
use autodie;
use diagnostics;
use Data::Dump qw(dump);
my %seen;

open my $in,'<','./Test_Data.txt';

while(<$in>){
     my ($key,$value)= split /[\s=\s]+/; 
    $seen{$key}[0]=$value; 
    }
close $in;

#using ONE hashes to check key

open my $in1,'<','./Test_Data1.txt';

while(<$in1>){
    my ($key,$value)= split /[\s=\s]+/; 
    $seen{$key}[1]=$value if (exists $seen{$key});
}     
close $in1;
#dump \%seen;

#section uses as follows: ? conditional to write on different output files
#also, 1st sub to written by me... to check the values 

open my $out,'>','./OUT_test_data_keys_and_sorted_values_match.txt';
open my $out1,'>','./OUT_test_data_No_values_matched.txt';
foreach my $key ( sort { check_values()} keys %seen){
    if ($key){
        my $fh = defined $seen{$key}[0] && 
        defined $seen{$key}[1] ? $out:$out1;
        print $fh "$key => ",join(',',@{$seen{$key}}),"\n";
        }
    }
close $out;
close $out1;

#here is first SUBROUTINE checks that value [0] == value[1]
#my %number;

sub check_values{
    for my $key (sort {$a<=>$b} keys %seen){
        #don't know how ,where to get valueat [0],value at[1] from??who has the values? what is really (a and b) in, is it $_ or %seen? what am I really evaluating with,is it like this: $seen{$key}[0]=$a or $seen{$key}[1]=$b...completely lost...
        }