... preprocess => sub { sort { -d $a <=> -d $b } @_ }, ...