my $dbh = DBI->connect("dbi:SQLite:dbname=event.db3", "", "", { RaiseError => 1, AutoCommit => 0 }, ) or die $DBI::errstr;
my @arr_uname = @{$dbh->selectcol_arrayref("select uname from event")};
$dbh->disconnect();

foreach $uname(@arr_uname) {

   ###
   ###   all the LWP::Simple and the parsing happens here
   ###
   ###  [deleted]

   ### output result
   if ($result ne '') {
      $dbh->do("INSERT OR IGNORE INTO detail_info (id,uname,url,thumb,txt) VALUES (?,?,?,?,?)", undef, $$result{'id'},$uname,$$result{'url'},$$result{'thumb'},$$result{'txt'});
      $dbh->do("INSERT OR IGNORE INTO score_info (id,uname,tid1,tid2,team1,team2,) VALUES (?,?,?,?,?,?)", undef, $$result{'id'},$uname,$$result{'tid1'},$$result{'tid2'},$$result{'team1'},$$result{'team2'});
      $dbh->commit; 
   }
}