find({
    preprocess => sub { return sort { $b cmp $a } @_ },
    wanted     => \&process_array,
}, @ARGV);