...
open (ERRORFILE,"<", "Errors-email.txt") || die "File not found\n";  
        @error_array = <ERRORFILE>;
...
foreach my $line(@error_array){
#
# Some $line substitutions here...
...
push(@sample_ids,$line);
...

##</code><code>##

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