I don't think you need to test the keys, just print what you have

} elsif ( $rsfound =~ m/^rs[0-9]/i ){
  print OUTFILE "$_\t $out{$rsfound}\n";     
}
[download]

poj