# since the order of the columns is significant, we
  # use an array to hold information about each column.
  my @COL_INFO = ( { name  => 'foo_id',
                     hide  => 1 },

                   { name  => 'foo',
                     id    => 'foo_id',
                     width => 400,
                     gen   => \&gen_foo,
                     title => 'Foo' },

                   { name  => 'bar',
                     width => 200,
                     align => 'right',
                     title => 'Barque' } );