Drum Machine written in Perl