You didn't say what you wanted to optimize, so here's another take on it:

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

Note that this only works on modern perls.