my @lines = <>:

my %count;

$count{$_}++ for @lines;

my @unique_lines = grep { $count{$_} == 1 } @lines;

print for @unique_lines; # or whatever you do with the result