if ( $self->{add_header} ) {
    unshift @$table_ref, [ map { $_ . 'col' } 1 .. @{$table_ref->[0]} ];
}