$te = HTML::TableExtract->new(keep_headers=> ["Customers","Samples","Violations","Availability"]);
$te->parse($final_content);
$arr_name = "ARR";
my $pages=0;
foreach $ts ($te->tables)
{
print "Table Number(" , join(',',$ts->coords), "):\n";
$rws=0;
foreach $row ($ts->rows)
{
$temp = join (",",@$row);
my @row_ele = split(/,/,$temp);
print "$pages,$rws\n";
${$arr_name{$pages}}[$rws]=\@row_ele;
# print ${$arr_name{$pages}}[$rws]->[1]."\n";
$rws++;
}
$pages++;
}