Select Code to Download

#!/usr/bin/perl

...
    }
}

Name,Building,Processing Date,Receipt Date, Location,Patient Id,Sample
+ ID,
John Doe,G building,05-Aug-2012,08-Aug-2012,New York City,ABC2345,UCD2
+3467, 
John Moe,H building,05-Aug-2012,08-Aug-2012,New York City,DEF2345,UCD8
+0645,
John Slo,I building,05-Aug-2012,08-Aug-2012,New York City,GHI2345,UCD7
+6765,
John Hor,j building,05-Aug-2012,08-Aug-2012,New York City,JKL2345,UCD8
+7111,

foreach my $records(@merged_array){
    
    if($records =~ /$sample_ids[3]/){
        print $records;
    }

**************************************
Errors for file: Merged_CSVfiles_1.txt
...
Sample_identifier 11SS00303 / IRD Clinic  clinic_HIV000140141:
*  The following fields contain invalid values: yeah yeah yeah

                    
    push(@sample_ids,$line);
        print(@sample_ids);

                    
push(@sample_ids,$line);
                        
...
}#End of the for-each loop        

print $sample_ids[3];