for my $cd (@cds) {
    print  $cd->name, $/;
    printf " - %d: %s\n", $_->num, $_->song->name
        for sort { $a->num <=> $b->num } $cd->tracks;
}