while (scalar @list_words) {
  test_if_letters_are_included();
  foreach(@list_words) {
    print "$_\n";
  }
  my @array = qw(this that the other thing);
  print "@array";
  say "@list_words";

  say scalar @list_words;
}