Select Code to Download

while (<FICC>) {
  my @words = split /\s+/,lc $_;
  ++$uniq1{$_} for @words;
}

#!perl
my %uniq1= (
...
my @words = ('ant','bat','cat','dog','eel','fox');
my @match = grep $uniq1{$_}, @words;
print "@match\n"