my @list2 = sort keys %{ { map { $_ => 1 } @list1 } };