my @result = keys %{ { map{ $_ => 1 } @list } };
print $_, "\n" for @result;