我在while语句中将元素推入数组。每个元素是一个老师的名字。当循环结束时，数组中最后出现重复的教师名称。有时候，它们不是在数组中彼此相邻，有时它们是。
在完成获取值后，如何只打印数组中的唯一值？每次我想打印一个元素时，不必解析整个数组。
在所有东西都被推入数组之后，
$faculty_len = @faculty;
$i=0;
while ($i != $faculty_len)
{
printf $fh '"'.$faculty[$i].'"';
$i++;
}
解决方法
use List::MoreUtils qw/ uniq /;
my @unique = uniq @faculty;
foreach ( @unique ) {
print $_,"\n";
}