sub Read_File {
    my $FILE = shift ;
    open (my $fh, "<", $FILE) || die "$!" ;
    my %hRec ;
    while (<$fh>) {
        chomp;
        my @RecLine=split (/;/) ;
        my @RecLine=split ('\t') ;
        $CmpKey=$RecLine[$Key] ;
        $CmpKey2=$RecLine[$Key2] ;
        $CmpValue=$RecLine[$Cmp] ;
        $hRec{$CmpKey,";",$CmpKey2}=$CmpValue;
    }
    return (%hRec) ;
}

foreach my $key (sort {$a<=>$b} keys %hBase) {  print "$key -> $hBase{$key}\n"; }
foreach my $key (sort {$a<=>$b} keys %hPost) {  print "$key -> $hPost{$key}\n"; }