Semi-random music generator in perl using MIDI::Simple