Select Code to Download

!/usr/bin/perl -wd

...
        @$deck[$i,$j] = @$deck[$j,$i];
    }
}

!/usr/bin/perl -wd

...

@shuff = shuffle(@files);
print $shuff[$_],"\n" for 0 .. 5;