Select Code to Download

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

my $select = sprintf "select %s from $table where %s",
    join(","     => @cols),
...

my $sth = $dbh->prepare($update);
   $sth->execute( values %data, values %constraints );