Select Code to Download

my $last_k = 'NIL';
my $last_n = 'NIL';
...
  ($last_k, $last_n) = ($k, $n);
}
print "$duplicates multiple chord names\n";

... lines deleted ...
Two names: 'E6/11/C#', 'E6/11/Db' for         C#/Db4, E4, G#/Ab4, A4, 
...
Two names: 'F#13/D#', 'F#13/Eb' for         D#/Eb4, F#/Gb4, A#/Bb4, E5
+, 
Two names: 'F#maj13/Eb', 'Gbmaj13/Eb' for         D#/Eb4, F#/Gb4, A#/B
+b4, F5, 
372 multiple chord names