for my $ts (HTML::TableExtract->new(headers=>qw(Security Volume Previous High Low Today's Change))
  ->parse($response)->table_states ) {

  for my $row ( $ts->rows ) {
    print join("\t", @$row), "\n";
    $sth1->execute( @$row )
      or die "Couldn't execute statement: " . $sth1->errstr;
  }
}