#!/usr/bin/perl
my $count = 0;
my $digit = 1;
while (1) {
    print "$digit\n";
    foreach my $str ( 'a' x $digit .. 'z' x $digit ) {
        $count++;
        print "$str\n";
    }
    $digit++;
}