in reply to opendir, readir into @array in one line?

@array = readdir(DIR) if(opendir(DIR, $dir));

In Section Seekers of Perl Wisdom