# bad
@array = `ls $dir`;

# better
@array = glob("$dir/*");

# i usually use what you already had
opendir(DIR,"$dir");
@array = readdir(DIR);
closedir(DIR);