Select Code to Download

my $cor ;
my $date ;
...
      } 
}
my $sql_content = "INSERT IGNORE INTO correct SET text='".$cor."' date
+='" .$date."'";

my %data_hash = map {$_->{'key'} => $_->{'value'} if ($_->{'key'} eq '
+correct' || $_->{'key'} eq 'date')} @data_list;
my $sql_content = "\nINSERT IGNORE INTO correct SET text='".$data_hash
+{'correct'}."' date='" .$data_hash{'date'}."'";