my @mean123=map( ($t->elm($_,'value1')+$t->elm($_,'value2')+$t->elm($_,'value3'))/3.0, 0..$t->nofRow()-1);

$t->addCol(\@mean123, 'Mean123');

print $t->csv;