my @unique = ();
	my %seen   = ();
        foreach my $elem ( @array )
		{
		next if $seen{ $elem }++;
		push @unique, $elem;
		}