Puzzle 1:

Explain what the following code does...

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

(Not sure if this is what you had in mind, and if it's the right level of difficulty. Specify if not.)