... my %seen = (); print grep ! $seen{ $_ } ++, <$fh>; ...