[问题求助] [已解决]Perl删除重复行的时候如何不打乱原有顺序？

CUer

原文件a.txt：

aaa
bbb
aaa
aaa
ccc
ddd
bbb
ddd
复制代码

希望得到的b.txt：

aaa
bbb
ccc
ddd
复制代码

这个代码虽然可以删除重复行，但是把顺打乱了：

use strict;
use warnings;
open(IN,"a.txt");
my %list;
while (<IN>) {
    $list{$_}++;
}
close IN;
open(OUT,">b.txt");
foreach (keys %list) {
    print OUT;
}
close OUT;
复制代码