foreach my $line4 (@sequences) {my @temp3 = split ( '\t', $line4);
		my $counter = 0; 
		my $paa = chop ($temp3[0]);
		my @fouraas = split ( '', $temp3[0]);
				if ($paa =~ /s/i ) {$pStotal++;
						    foreach my $key (@searchmotif)
						    	{unless ( my @stemp = grep ( /$key/, @fouraas)){ push (@{$nsaminoacids{$key}},$temp3[1]);next;} #closes if loop		
else	  { push (@{$saminoacids{$key}},$temp3[1]); next;} #closes if loop			
						    	  } #close foreach loop
						     	} #closes if S loop
elsif ($paa=~ /t/i ) {$pTtotal++;
						      foreach my $key (@searchmotif)
						    	{if (my @ttemp = grep ( /$key/, @fouraas)){ push (@{$taminoacids{$key}},$temp3[1]);
						      								} #closes if loop
						      		else	  { push (@{$ntaminoacids{$key}},$temp3[1]);
						      								} #closes if loop			
						   		} #close while loop
						     	} #closes if T loop
elsif ($paa =~ /y/i ){$pYtotal++;
						      foreach my $key (@searchmotif)
						    	{if (my @ytemp = grep ( /$key/, @fouraas)){ push (@{$yaminoacids{$key}},$temp3[1]);
						      								} #closes if loop
						      	else	  { push (@{$nyaminoacids{$key}},$temp3[1]);
						      								} #closes if loop			
						   		} #close while loop
						     	} #closes if Y loop
else		{push (@error, "$line4\tNot recognised p amino acid\n"); }
				
				} #closes foreach loop