Select Code to Download

use List::Util 'shuffle';
@shuffled = shuffle(@list);

sub fisher_yates_shuffle {
    my $deck = shift;  # $deck is a reference to an array
...
my @mpeg = <audio/*/*.mp3>;
fisher_yates_shuffle( \@mpeg );    # randomize @mpeg in place
print @mpeg;