Hash slices would be ok too.

my %hash;
@hash(@array) = (@array);
@sorted = keys %hash;
[download]