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;
		}
	}
}

##</code><code>##

@sid = (1,2,7,9)
@unpairedSidBinder =
(sid  1|FLPSDFFPS LLWFHISCL
sid  1|WIRTPPAYR YVNVNMGLK
sid  2|FLPSDFFPS LLWFHISCL
sid  2|FLPSDFFPS ELMNLATWV
sid  7|FLPSDFFPS ATVELLSFL
sid  7|VWIRTPPAY LLSFLPSDF
sid  9|VWIRTPPAY LLDTASALY
sid  9|FGRETVLEY PSDFFPSVR)