Select Code to Download

my $alphanumber = '';
for (1..$length)
    {
my $alphanumber .= $chars[int rand @chars];
}