use File::Find;
use Data::Dumper;
use strict;
use warnings;

my @nod;

print ord('d'), "\n";
print ord('D'), "\n";
find({
  wanted     => \&foo
}, '.');
print Dumper(\@nod);

sub foo {push @nod, $_ if (lc($_) lt "d")}