.
.
. Some hand waving here...
.
.
my %een=();

open FIN,"< file.txt" or die $!;
my @lines=grep !$een{$_}++,<FIN>;
close FIN;

.
.
. whatever else...
.