my %seen;
  my @keywords = grep ! $seen{lc()}++, qw(this that other foo THIS bar);