my @scales;
struct( Scale => {
    name => '$',
    offset => '$',
    foo => '$',
    index => '$',
    chords => '@',
    notes => '@'
});

##</code><code>##

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

##</code><code>##

...
  bless( {
                   'Scale::index' => '8',
                   'Scale::notes' => [],
                   'Scale::name' => 'Major Bebop Eb',
                   'Scale::chords' => [],
                   'Scale::foo' => 'E61100',
                   'Scale::offset' => undef
                 }, 'Scale' ),
          bless( {
                   'Scale::offset' => undef,
                   'Scale::foo' => 'E61100',
                   'Scale::chords' => [],
                   'Scale::name' => 'Major Bebop F',
                   'Scale::notes' => [],
                   'Scale::index' => '9'
                 }, 'Scale' ),
...