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