foreach $line (@words) {
$line =~ tr/A-Z/a-z/;

foreach $line (@ignore) {
s/$_//;
}
  }