Help for this page

Select Code to Download


  1. or download this
    use List::Util 'shuffle';
    ...
    (shuffle(@audiofiles))[0 .. $numOfRandFiles - 1];