my @words  = ( ... );
my @common = qw|a and at|;

my %seen;
@seen{@common} = (1) x @common;
@words = grep { $_ = lc; ! $seen{$_}++ } sort @words;