my @x;
if ( opendir(my $DIR, $somedir) ) {
    @x = readdir($DIR) or die "$!";
    closedir($DIR);
}