my %chordpos;
    @chordpos{1..12}= qw( A A# ... );
    @chordpos{values %chordpos}= keys %chordpos;