sub cols {
    my ($self, $which, @list) = @_;
    no strict 'refs';
    if (@list) {
        @{$$self{"_cols_$which"}} = @list;
    } else {
        return @{$$self{"_cols_$which"}}
    }
}