sub dataextractor($)
{
    my $input = shift;
    my $output = shift;
    my (@colname,@db_result);
    open(OUT,">".$output) or die "Can't open the file $output\n";
    open(IN,"<".$input) or die "Can't open the file $input\n";
    while (<IN>)
    {
        print OUT $_;
        s/\r?\n$//;
	@colname = split (',',$_);
        last;
    }#while
    close(IN);
    my $array_size =  scalar(@colname);
    my $db_query;
    my $dbh = DBI->connect("DBI:CSV:f_dir=.;csv_eol=\n;") or die "Can't connect with the DB: $!\n";
     $dbh->{'csv_tables'}->{'csvtable'} = { 'file' => $input};
    foreach my $key (keys %site_peakhr)
    {
	$db_query = "SELECT ".join(',',@colname)." FROM csvtable where $colname[2] like $key and $colname[1] = $site_peakhr{$key}" ;
	@db_result = $dbh->selectrow_array($db_query);
        if (scalar(@db_result) < 1)
        {
            $db_result[0] = $date;
	    $db_result[1] = $cell_peakhr{$key};
	    $db_result[2] = $key;
             foreach my $count (3..$array_size-1)
            {
                $db_result[$count] = "-";			
            }#foreach
        }#if
        print OUT join(',',@db_result)."\n";
    }#foreach
    close(OUT);
    return ($output);
}