Select Code to Download

my @letters = qw( A B C D E F );

...
                                        $_       % 6;
   print("$num\n");
}

my @letters = qw( A B C D E F );
my $len = 4;
...

print(convert($_), "\n")
   for 0..@letters**$len-1;