my %seen; while (){ push @unique, $_ unless $seen{$_}++; }