elsif ($rsfound =~ m/^rs[0-9]/i) {foreach my$key (keys(%out)) { 
										if ( $rsfound eq $key  ) 
{print OUTFILE "$_\t $out{$key}\n";} }