my @seen = keys %{ { map{ $_ => 1 } @list } };