Select Code to Download

my $sep = '##';
my $sep_len = length($sep);
...
  print "$rid: " . ($keeplist{$rid} ? 'y' : 'n') . "\n";

}

my $sep = '##';
my $sep_len = length($sep);
...
  print "$rid: " . ($keeplist{$rid} ? 'y' : 'n') . "\n";

}