1 2
2 3
3 4
4 5

etc (tab column) 
##</code><code>##

#!/usr/bin/perl
use Modern::Perl;

open FILE1, "<", "file1.txt";
open FILE2, "<", "file2.txt";
open FILE3, "<", "file3.txt";


my @file1 = {
chomp;
my ($index, $value) = spilt /\s/;
}

my @file2 = {
chomp;
my ($index, $value) = spilt /\s/;
}

my @file3 = {
chomp;
my ($index, $value) = spilt /\s/;
}

open (OUTFILE, ">average.txt") or die(Output file error");