my @wordlwr = map { lc($_) } @word;