Better to use either a lexical hash in the do-block, or an anonymous hash:
@array = keys %{ {map {$_,undef} @array} };