#!/usr/bin/perl
#
# eg2: unique elements example, second version..
#

use strict;
use warnings;

my @array = ( 17, 5, 3, 17, 2, 5, 7, 6, 6, 10, 3 );

# build @uniq, an array of all unique elements of @array
my @uniq;
foreach my $i (0..$#array)		# foreach index i in @array
{
	# how many elements array[j] are the same as array[i] (inclusive)
	my $count = 0;
	foreach my $j (0..$#array)
	{
		$count++ if $array[$i] == $array[$j];
	}
	# unique if $count == 1 (array[i] itself)
	push @uniq, $array[$i] if $count == 1;
}
my $str = join(',',@uniq); print qq($str\n);
