my $match =  $RB1 == $RB2  ?  1 
          :  $RB1 == $WR1  ?  1 
          :  $RB1 == $WR2  ?  1 
          :  $RB1 == $TE1  ?  1 
          :  $RB2 == $WR1  ?  1 
          :  $RB2 == $WR2  ?  1 
          :  $RB2 == $TE1  ?  1 
          :  $WR1 == $WR2  ?  1 
          :  $WR1 == $TE1  ?  1 
          :  $WR2 == $TE1  ?  1 
          :                   0
          ;