Perl : 重複行を削除

#-------------
#重複行を削除
#-------------
#　 （説明）
#　 　　ハッシュで読込み行の文字列をキーとしてハッシュを作成
#　 　　ハッシュの値は重複行の出現回数
while(<>){
  next if $line{$_}++;
  print;
}

## print "---------------------¥n";
## foreach $key ( keys %line ) {
##   print "KEY:$key VALUE:$line{$key}", "¥n";
## }