Select Code to Download

my @scales;
struct( Scale => {
...
    chords => '@',
    notes => '@'
});

my $sref = $scales[$scale]->chords;
push @{$sref}, $found_chord . ';' . $c[1];

...
  bless( {
...
                   'Scale::index' => '9'
                 }, 'Scale' ),
...