my $csv = Text::CSV->new();

open (CSV,"<", "Merged_CSVfiles.csv") || die "File not found\n"; 

	while (<CSV>) {            # While Loop Open Bracket

		next if ($. == 1);
		
		if ($csv->parse($_)) {        #If Open Bracket
		
			my @columns = $csv->fields();
				
				#__ Assigning $columns[0]-$columns[26] to variables
				

					
					my @Sample_Ids_m = $columns[16];
					print ($Sample_Ids_m[0]);		
					
	
		} else {					# If Closed Bracket
											# Else Open Bracket
		
			my $err = $csv-> error_input; 
			print "Failed to parse line: $err";
			
			close CSV;

		} # Closed Else Bracket
	}#Closed While Loop Bracket