foreach (@words) {
   next unless $_ eq 'PHAGE';
   print("$_\n");
}