sub rank_teams {

	if($wp{$a} < $wp{$b}) { return 1; }
	if($wp{$a} > $wp{$b}) { return -1; }
	
if($wins{$a} > $wins{$b}) { $tiebreaker{$a} .= "Most Wins v. $b; "; return -1; }
if($wins{$a} < $wins{$b}) { $tiebreaker{$b} .= "Most Wins v. $a; "; return 1; }
	
if($wv{"a*b"} > $lv{"a*b"}) { $tiebreaker{$a} .= "Head-to-Head ($wv-$lv) v. $b; "; return -1; }
if($wv{"a*b"} < $lv{"a*b"}) { $tiebreaker{$b} .= "Head-to-Head ($lv-$wv) v. $a; "; return 1; }
	
if($sp{$a} > $sp{$b}) { $tiebreaker{$a} .= "Pts. v. $b; "; return -1; }
if($sp{$a} < $sp{$b}) { $tiebreaker{$b} .= "Pts. v. $a; "; return 1; }

	if($ll_wins{$a} > $ll_wins{$b}) { $tiebreaker{$a} .= "LL Wins ($ll_wins{$a}-$ll_wins{$b}) v. $b; "; return -1; }
	if($ll_wins{$a} < $ll_wins{$b}) { $tiebreaker{$b} .= "LL Wins ($ll_wins{$b}-$ll_wins{$a}) v. $a; "; return 1; }
	
	if($bbbDivision{$a} ne "LL") {
	
	if($l_wins{$a} > $l_wins{$b}) { $tiebreaker{$a} .= "L Wins ($l_wins{$a}-$l_wins{$b}) v. $b; "; return -1; }
	if($l_wins{$a} < $l_wins{$b}) { $tiebreaker{$b} .= "L Wins ($l_wins{$b}-$l_wins{$a}) v. $a; "; return 1; }
	
	}

	
	if($bbbDivision{$a} ne "LL"&& $bbbDivision{$a} ne "L") {
	
	if($m_wins{$a} > $m_wins{$b}) { $tiebreaker{$a} .= "M Wins ($m_wins{$a}-$m_wins{$b}) v. $b; "; return -1; }
	if($m_wins{$a} < $m_wins{$b}) { $tiebreaker{$b} .= "M Wins ($m_wins{$b}-$m_wins{$a}) v. $a; "; return 1; }
	
	}
	
	if($bbbDivision{$a} eq "S") {

	if($s_wins{$a} > $s_wins{$b}) { $tiebreaker{$a} .= "S Wins ($s_wins{$a}-$s_wins{$b}) v. $b; "; return -1; }
	if($s_wins{$a} < $s_wins{$b}) { $tiebreaker{$b} .= "S Wins ($s_wins{$b}-$s_wins{$a}) v. $a; "; return 1; }
	
	}
	
if($tb_num{$a} > $tb_num{$b}) { $tiebreaker{$a} .= "By Lot v. $b; "; return -1; }
if($tb_num{$a} < $tb_num{$b}) { $tiebreaker{$b} .= "By Lot v. $a; "; return 1; }
	
	return 1;

}