sub add{
    my ($i, $j, $add) = @_;
    $_[$tc]{value}[$i][$j] += $add;
    }