File::Find::find({preprocess=>sub { 
                      return sort {uc $a cmp uc $b} @_ 
                       }, 
                  wanted=>sub {
                      return if (-d);
                      say $_;
                       }
                 },@ARGV);