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