sub Pass {
  return 
    $p_c[rand(@p_c)] .
    $p_c[rand(@p_c)] .
    $p_c[rand(@p_c)] .
    $p_c[rand(@p_c)] .
    $p_c[rand(@p_c)] .
    $p_c[rand(@p_c)] .
    $p_c[rand(@p_c)] .
    $p_c[rand(@p_c)];
}