...
#use List::Util 'shuffle';
use List::Util 'sample';
...
#my @playlist = (shuffle @all_files)[0 .. $list_length - 1];
my @playlist = sample $list_length, @all_files;
#print "$_\n" for sort @playlist;
print "$_\n" for @playlist;
...