Select Code to Download

#!/usr/bin/perl
use strict;
...
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

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

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