my $de = DataExtract::FixedWidth->new(
  cols => ['table 1',  'table 2' , 'key 1', 'key 2'],
  header_row => 'table 1  table 2  key 1  key 2'
)

##</code><code>##

my $de = DataExtract::FixedWidth->new( heuristic => \@lines );
for ( @lines ) {
  next unless m/\w/; ## skips the definition row of ----
  $de->parse_hash( $_ )
}