#use List::Util 'sample';
use List::Util 'shuffle';
...
#my @playlist = sample $list_length, @all_files;
my @playlist = (shuffle @all_files)[0 .. $list_length - 1];