my %saw;
my @array = (1,1,1,2,2,3,3,3,3,4,5,5,5,6,6,7,6,5);

@saw{@array} =(); # initialize hash slice

my @uniq_elements = sort keys %saw;