去除重複的資料

1. use strict;
2. use warnings;
3. my %hash;
4. while (<DATA>) {
5.     if (!$hash{$_}) {
6.         print;
7.       $hash{$_} += 1;
8.     }
9. }