## sorted by name, case sensitive
my @files = sort {$a cmp $b} readdir DIR;