my ($cor, $date);
for my $data_pair (@data_list) {
  if ($data_pair->{key} eq 'correct') {
    $cor = $data_pair->{value};
  }

  if ($data_pair->{key} eq 'date') {
    $date = $data_pair->{value};
  }
}

$sql_content .= qq(
INSERT IGNORE INTO correct SET
       text="$cor",
       date="$date");