Select Code to Download

while (<STDIN>) {
   chomp;
...
   print "$key ($count)\n";
   print "Id: $_\n" for @$ids;
}