for my $cd ( 1 .. 2 ) {
    Music::CD->create(
        {   cdid   => $cd,
            title  => "Title of CD $cd",
            year   => '2006',
            artist => 5,
        }
    );
    for my $track ( 1 .. 5 ) {
        Music::Track->create(
            {   trackid  => $cd . $track,
                cd       => $cd,
                position => $track,
                title    => "Title of track $track",
            }
        );

    }
}
Music::DBI->dbi_commit();