foreach my $sid (@sid){ foreach my $el (@unpairedSidBinder){ my @sidtwobinder = split /\|/,$el; #print "\nline192 sid=$sid twobinder[0]=$sidtwobinder[0] twobinder[1]=$sidtwobinder[1]n"; if ($sid eq $sidtwobinder[0]){ my $temp = $sidtwobinder[1]; my $templine .=$temp; push @combinedBinders, $templine; } } }