sub rndStr{ 
    my( $n, @chars ) = @_;
    return join'', @chars[ map{ int rand @chars } 1 .. $n ];
}