#!/usr/bin/perl
use warnings;
use strict;

use PDL;

sub load {
    my ($filename) = @_;
    open my $FH, '<', $filename or die $!;
    return pdl(map [split], <$FH>)

}

my $matrix = cat(map load($_), @ARGV);
print average($matrix->reorder(2,0,1));