#!/usr/bin/perl

use strict;
use warnings;

my @alphabet = ('a'..'z', 'A'..'Z', '_');

foreach my $ch1 (@alphabet) {
    print $ch1, "\n";
    foreach my $ch2 (@alphabet) {
        print $ch1, $ch2, "\n";
        foreach my $ch3 (@alphabet) {
            print $ch1, $ch2, $ch3, "\n";
            foreach my $ch4 (@alphabet) {
                print $ch1, $ch2, $ch3, $ch4, "\n";
                foreach my $ch5 (@alphabet) {
                    print $ch1, $ch2, $ch3, $ch4, $ch5, "\n";
                    foreach my $ch6 (@alphabet) {
                        print $ch1, $ch2, $ch3, $ch4, $ch5, $ch6, "\n";
                    }
                }
            }
        }
    }
}

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my @alphabet = ('a'..'z', 'A'..'Z', '_');
my $min_size = 1;
my $max_size = 6;

my @state = ();
do {
    print @alphabet[@state], "\n" if $min_size <= @state;
    if (@state < $max_size) {
        push @state, 0;
    }
    else {
        for (my $i = $#state; $i >= 0; --$i) {
            last if ++$state[$i] < @alphabet;
            pop @state;
        }
    }
}
while (@state);