my $te = HTML::TableExtract->new( count => $anal_table );
		$te->parse($$html);
			foreach my $ts ( $te->tables ) {
				my @rows     = @{ $ts->rows };
				my @headings = @{ $rows[0] };

					for ( my $i = 1 ; $i < scalar @rows ; $i++ ) {
						my @row = @{ $rows[$i] };
						my $date;
							if ( $row[0] =~ /(SALES|earnings)/i ) {
									for ( my $j = 1 ; $j < scalar @headings ; $j++ ) {
										push( @headerRow, $1 . ' ' . $headings[$j] );
									}
									while ( @{ $rows[ $i + 1 ] }[0] =~ /ending/i ) {
										@row  = @{ $rows[ ++$i ] };
										$date = $row[0];
										$date =~ s/^.*?Ending\s//g;

										#	Now call sub to convert date using date hash
										my $iso_date = $self->date_conv($date);
										$date = $iso_date;
											for ( my $j = 1 ; $j < scalar @row ; $j++ ) {
												push( @{ $data{$date} }, $row[$j] );
											}
									}
							}
					}
			}