Дана матрица Y(m,n). Найти столбец с наибольшей и наименьшей суммой элементов?

#!/usr/bin/perl
use strict;
use warnings; #Для отладки

# создаем файловый дескриптор
open FID, "matrix.txt"
or die "Failed to open 1up: $!\n";
my @arr;
my $n = 0;
my $k = 0;
my $min;
my $max;
my $min1 = 0;
my $max1 = 0;
my $i = 0;
my $size = 0; # количество столбцов
while () {
my @row = split /\s+/; # разбиваем строку по шаблону \s+ и сохраняем в массив
push(@arr, [@row]); # добавляем строку в общий массив
$size= scalar @row;
++$n;
}
close FID; # закрываем файловый дескриптор

my $s;
for ($i = 0; $i