#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dump qw/dump/;

my %data;

foreach my $filename (qw/one.txt two.txt three.txt/) {
    open( my $file, $filename )
        or die "Unable to open $filename because $!\n";
    while (<$file>) {
        chomp;
        my ( $chrX, $chrpos, $value1, $value2 ) = split(/\s+/);
        $data{$chrX}->{$chrpos}->{'value1'} += $value1;
        $data{$chrX}->{$chrpos}->{'value2'} += $value2;
    } ## end while (<$file>)
} ## end foreach my $filename (qw/one.txt two.txt three.txt/)

print dump( \%data );