my($self) = @_;

    my(%seen, %r);
    my @common = qw(a and at);
    @seen{@common} = ();
    for my $r (@words) {
        next if exists $seen{ lc $r };
        $r{lc $r} = 1;
    }
    my @words = sort keys %r;