In addition to marto's excellent pointers, you might want to have a look at my module, Algorithm::BinPack. I wrote the module with exactly this kind of problem in mind. You'll still have to do a bit of work, but the hard part (filling the DVDs as much as possible) is done for you.