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