while (<INP>) {
  chomp;
  push @chk if length == $word_length;
}