sub find_paring()
{
  my $white_player = shift;

##</code><code>##

sub find_paring
{
  my $white_player = shift;