Since someone's already fixed the OP's code to do what was intended, I'll put in how I might have written this.

my %u;
print grep !$u{$_}++, <>;
[download]

Unlike another short solution posted elsewhere, this keeps the lines in their original order while filtering out the duplicates.