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

use Data::Dumper;

my $data;

#read all data into an AofA
sub avg {
        my $s;
        $s += $_ for @_;
        return $s / grep { $_ != 0 } @_;
};

while (<DATA>) {
   chomp;
   push @$data, [@$_, avg( @$_[1..@$_-1])] for ([split(/,/, $_)]);
}

push @$data, ["TOTAL", map { my $col = $_; avg( map { $_->[$col] }  @$data) }  1..11];

print join(",", @$_),"\n" for @$data;


__DATA__
IMAGINGNY,1.45,0.42,1.54,1.49,1.47,1.36,1.81,0.47,1.8,0.55,0.38 
JBSQLTST,1.29,1.09,1.13,1.88,1.11,1.44,1.25,1.23,1.05,1.39,1.61 
SNYCSQL,4.58,4.24,3.87,3.9,4.13,2.04,3.34,7.6,3.58,1.26,7.45 
Snynetsrv,26,26.34,24.59,26.46,26.24,26.14,32.35,31.77,31.77,29.92,26.59 
W32SPLMCOR01,8.27,13.23,7.73,8.85,9.15,13.95,0,0,0,0,0 
W32SDAPSCT01,3.07,3.14,2.97,3.28,21.65,54.23,3.16,3.02,3.26,2.77,3.40 
W32SDASALM01,1.22,1.3,1.11,0.92,1.57,1.06,1.01,0.87,0.93,2.26,0.91 
W32SMSCSD02,15.38,12,22.32,23.3,19.74,46.42,2.06,1.7,2.17,2.85,1.74 
W32SPLMCOR02,13.24,13.23,7.73,8.85,9.15,13.95,0,0,0,0,0 

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw/sum/;

my $data;
sub avg { return sum(@_) / grep { $_ != 0 } @_;};

while (<DATA>) {
   chomp;
   push @$data, [@$_, avg( @$_[1..@$_-1])] for ([split(/,/, $_)]);
}

push @$data, ["TOTAL", map { my $col = $_; avg( map { $_->[$col] }  @$data) }  1..11];
print join(",", @$_),"\n" for @$data;