>>54
> my @dir_list = (test,test2);
ソースそのまま実行したのなら。
my @dir_list = ('test','test2');

opendir DIR, $dir_list[0] or die ;
する事もお勧め。