#!/usr/bin/perl -w
use strict;
my $size = 3; # number of characters in the target string.
my $string = 'a' x $size;
my $end = 'z' x $size;
do {
  print $string++, "\n";
} while $string ne $end;