#!usr/bin/perl

use strict;
#use warnings;

my %seen = ( );
my @uniq = ( );
my @list = "bob, bob, sue, sue";
my $item;
my $element;

foreach $item (@list) {
    if ($seen{$item}) {

	  # same, don't grab
	} else{

        # if we get here, we have not seen it before
        $seen{$item} = 1;
        push(@uniq, $item);
    }
}

foreach $element(@uniq) {
	print $element . "\n";

}