sub find_paring
{
  my $white_player = shift;