#!/usr/bin/perl

use strict;
use warnings;

open IN, 'data.txt' or die$!;
my @colSum;

while(<IN>){
	chomp($_);
	my @colArray = split(/\s/,$_);
	for(my $i = 0; $i <= $#colArray; $i++){
		$colSum[$i] += int($colArray[$i]); 
	}
}

foreach my $ j(0 .. $#colSum){
	print "Sum for column",$j,"is: ",$colSum[$j],"\n";
}