#!/usr/bin/perl -w

use strict;

my $length = 4;  # max length of the word to find
my $find = "test"; # the word to find

sub gen_word {
  my $prev = shift;
  my $len = shift;

  if ($len == 1) {
    for (my $idx = 65; $idx <= 122; $idx++) {
      my $word = $prev . chr($idx);
      print "word: $word\n";
      if ($find eq $word) {
        print "found: " . $word . "\n";
        exit();
      }
    }
  } else {
    for (my $idx = 65; $idx <= 122; $idx++) { &gen_word($prev . chr($idx), $len - 1); }
  }
}

&gen_word("", $length);

1;