$VAR1 = [
          bless( {
                   'Scale::foo' => undef,
                   'Scale::chords' => [
                                 'Ami'
                               ],
                   'Scale::notes' => [],
                   'Scale::offset' => undef,
                   'Scale::name' => undef,
                   'Scale::index' => undef
                 }, 'Scale' ),
          bless( {
...