#!/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Table;

my $t = new Data::Table( [ [ 1, 2, 3 ], [ 10, 20, " " ] ], [ 'A', 'B' ], 1 );

# create emtpy column
my @newCol = ();
$newCol[ $t->nofRow - 1 ] = undef;
$t->addCol( \@newCol, 'adding_up' );

# Put the formula in the empty column
$t->colsMap( sub { $_->[2] = $_->[0] + $_->[1] } );
print $t->csv;
exit;