Start working on unique-values-in-an-array-in-perl