Select Code to Download

   my %hash = map { $_ => 1 } @files;
    @files = keys %hash;

use List::Util qw(shuffle);
@files = shuffle(@files);