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

  say scalar @list_words;
}

##</code><code>##

...ZONDA
ZONED
ZONES
ZOOID
ZOOKS
ZOOMS
ZOONS
ZORIS
ZOSMA
ZUDDA
ZULUS
ZUNIS
this that the other thing
 ZUNIS
8471

##</code><code>##

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;
}

##</code><code>##


...ZONDA
ZONED
ZONES
ZOOID
ZOOKS
ZOOMS
ZOONS
ZORIS
ZOSMA
ZUDDA
ZULUS
ZUNIS
this that the other thing
 ZUNIShat the other thingABASE
8471