Select Code to Download

   my @keywords = ('this','that','other','foo','this',              
                   'bar');                      ^dupe

   my @keywords = ('this','that','other','foo','THIS',
                   'bar');                      ^uc(dupe)

   use strict;

...
   foreach my $word (@keywords) {
           print $word . "\n";
   }