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