sub column {
    my $self = shift;
    my $c = shift;
    my @column;
-   foreach my $row ($self->rows) {
+   foreach my $row (0..$#{$self->rows}) {
      push(@column, $self->cell($row, $c));
    }
    wantarray ? @column : \@column;
  }