#!/usr/bin/perl -w
use strict;

my @zeichen = ("A".."C");
my $laenge = 3;
my $start = 0;
my $pos = $laenge;

my %string = {"1" => 'A', "2" => 'A', "3" => 'A'};

my $i=0;

while ($pos >= 1) {

  for my $aktuell (@zeichen) { 
    $string{$laenge} = $aktuell;
    print $string{$_} for (1..$laenge);
    print "\n";
  }
  if ( $string{$pos} eq $zeichen[scalar(@zeichen)-1] ) {
    $pos--;
    $i=0;
    $string{$laenge} = $zeichen[0];
  }
  $string{$pos} = $zeichen[$i];
  $i++;
}