$te = new HTML::TableExtract ( headers => [qw(Ship position)] );

$te = new HTML::TableExtract(headers=>\@headers);