do{
  $index_cur=int( rand( ( $last_abc_letter ) ) );
  if( $index_cur==$index_prev ){
    next;
  }else{
    $index_prev=$index_cur;
    print "$letter[$index_cur]\n";
    $key=&ReadKey( 0 );
  }
}until $key eq 'q';