my $te = HTML::TableExtract->new(
    keep_html=>1,
    headers =>[qw(RefSNP)],
    slice_columns=> 0);