while (<MYINFILE>) { 
					chomp ($_);
					@line = split (/\t/, $_);
					$rsfound = $line[11] ;
					my$loc = $line[0] ;
					if ($loc =~ m/location/i)
 {print OUTFILE "$_\t YRI_iHs\n" ; }
					elsif ($rsfound =~ m/^rs[0-9]/i)
 {foreach my$key (keys(%out)) { 
										if ( $rsfound eq $key  )
 {print OUTFILE "$_\t $out{$key}\n";}
										 
										}