my @chars6 = ('0'..'9', 'a'..'z', 'A'..'Z', '!','@', '#', '$', '%',
'^', '&', '*', '(', ')', '<', '>', '?', '`', '+', '/', '[', '{', ']',
'}', '|', '=', '_','~', ',', '.');

if ($level == 5) {
     m/@chars6/
     #generate new password
}