sub find_pairing() {
    my $white_player = shift;
    ...
}