hi, perhaps you could use File::Find::Iterator :

 use File::Find::Iterator;
 my $find = File::Find::Iterator->create(dir => ["."],
           order =>  sub { $_[0] cmp $_[1] } );
 while (my $f = $find->next) {
     last if $d =~ /^d/i;
    .... do some thing
 };
[download]

order is not documented but it works !!!