$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++;
}