my %uniq = map {($_,1)} @strings; my @result = keys %uniq;