$table->colsMap( sub {$_->[0] =~ s/,/\./g; $_->[2] = $_->[0] * $_->[1] } );