my $bookMark = $charset[ rand( @charset ) ];