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