Hi there. It makes sense to only compare files of the same size so that is why they are compared and output in that order, within each size the output is based on a traversal of a Perl hash, which is essentially random. In order to force all '/' Characters to '\' in the output names, you could change the check_file sub to:

sub check_file {
   (my $fn = $File::Find::name) =~ tr#/#\\#;
    -f && push @{$files{(stat(_))[7]}}, $fn;
}
[download]