my @fields = (qw(url html_extr_text concord_file sys_time));
	my $fieldlist = join ", ", @fields;
	my $field_placeholders = join ", ", map {'?'} @fields;
	
	my $insert_query = qq{
		INSERT INTO article($fieldlist)
		VALUES ($field_placeholders)
	};
	my $sth = $dbh->prepare($insert_query);
	
	foreach my $article_index (0 .. @output_concord_files_prepare){
		$field_placeholders = $sth->execute($url_prepare[$article_index], $html_pages_files_extended[$article_index], $output_concord_files_prepare[$article_index], $sys_time_prepare[$article_index]);
		if ($field_placeholders != 1){
			die "Error inserting records, only [$field_placeholders] got inserted: " . $sth->insert->errstr;
		}
	}