Select Code to Download

    foreach my $num (split /::/ => $value) {

  my %matches = map {$_ => 1} 17, 83, 114, 205, 407;  
  while (my ($key, $value) = each %hash) {
...
      next;
    }
  } ### end while