sub find_paring()
{
  my $white_player = shift;