# characters in password
    my @chars_pool = character_pool();

    # default password length
    my $pass_len = 14;

...

    # generate password
    my $password;
    for (1..$pass_len) {
        my $random_number = int rand @chars_pool;
        $password        .= $chars_pool[$random_number];
    }