Select Code to Download

my %cds = (
  classical => [
...
    print "\t", join(",", @{ $_ }), "\n";
  }
}

  # "for( ... ) { ... }" creates assignment to $_, right?
  # doesn't this 'corrupt' value for looking up $cds{$_} ?
  for( @{ $cds{$_} } ) { ... }