Question

perl删除重复元素

#!/usr/bin/perl
use warnings;
use strict;
my(@protein,%count,$protein,$d);
chomp(@protein=<STDIN>);
foreach $protein(@protein) {
$count{$protein}+=1;
}
foreach $protein (keys %count) {
while($count{$protein}==1){
$d=$protein;
}

}
print $d;
大神们帮忙看看这个程序哪里不对啊

Answer 1

foreach $protein (keys %count) {
if($count{$protein}==1){
$d=$protein;
print $d;
}

}