Select Code to Download

my @set = qw( A B C D E F );
my $len = 12;
...
     $result .= $char;
}
print $result;