print map "$_\n", keys %{ {map {$_ => 1} @array} };