use strict;

my @data;
open(INPUT,'<',"monks.dat") or die("Can't open file");
while (<INPUT>) {
    chomp;
    my @newdata = split(/ +/);
    for my $index (0 .. $#newdata) {
        $data[$index] += $newdata[$index];
    }
}
close(INPUT);