my @filenames = do {
   opendir my $d, "." or die;
   sort readdir $d
};