Select Code to Download

#!/usr/bin/perl
use warnings;
...
push @{ $scales[0]->chords }, 'Ami';

print Dumper \@scales;

$VAR1 = [
          bless( {
...
                 }, 'Scale' ),
          bless( {
...