@hash{@array) = ();
@array = keys %hash;
##</code><code>##

$hash{$_}++ or push @unique, $_ for @array;