print " Please input your new csv file \n";
my $ csv_name =<>;
 my $file_csv="$csv_name";     
	open(FILE_csv,"<","$file_csv")|| die ("can't open the csv file \n");          

@array_A= column_segregation_Spec_values (1);  # function call

close FILE;