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

open FILE1, "<", "/Users/ts/file1;
open FILE2, "<", "/Users/ts/file2";
open FILE3, "<", "/Users/ts/file3";


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

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

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

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

print avg(@file1, @file2, @file3);