$r .= $chars[rand @chars] for 1 .. shift;