sub zParseHTMLFiles ($$) { my ( $lrefFileList, $lrefColNames ) = @_; my @ldata; foreach my $lFile (@$lrefFileList) { my $lTableExtract = HTML::TableExtract->new( headers => [@$lrefColNames] ); chomp($lFile); $lTableExtract->parse_file($lFile); foreach my $ls ( $lTableExtract->tables ) { foreach my $lrow ( $lTableExtract->rows ) { chomp( @$lrow[$#$lrow] ); push( @ldata, $lrow ); } } } return \@ldata; }