my $sql_A = "SELECT DISTINCT parameter_id FROM e.measurement WHERE ((parameter_id LIKE 'M%') OR (parameter_id LIKE 'G%') OR (parameter_id LIKE 'E%')) AND parameter_id NOT LIKE '%_________8__' ORDER BY parameter_id;";
    
    my $Output_A = "List_parameters_common_to_centers.txt";   
    
    open (OUTFILE_A, ">>$Output_A") || die "Error opening outfile.$!,stopped";
    
    
    my $sth_A = $dbh->prepare($sql_A) or die "Cannot prepare: " . $dbh->errstr();
    $sth_A->execute() or die "$sth_A->errstr\n";
    
    my @row_A; 
    my @parameters_A; 
    my @record_A; 
    
    while(@row_A = $sth_A->fetchrow_array()) {
	@record_A = @row_A;
	push(@parameters_A, @record_A);
	print OUTFILE_A "@record_A\n";
    }
    
    
    $sth_A->finish();