my %hash;
@hash(@array) = (@array);
@sorted = keys %hash;