my @things = qw/homer bart marge maggie lisa kramer 
                jerry george elaine marge lisa/;

my %seen;

foreach my $thing ( @things ) {
    next if exists $seen{$thing};
    $seen{$thing}++;
    # Do your stuff here.
}