Select Code to Download

  # store some stuff in the "database":
  $db->{ record_1 } = {
...
  my @keys_of_records_that_rule = grep {
    $db->{ $_ }{ perl } eq 'rules'
  } keys %$db;