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

##</code><code>##

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