my $tiekey = $signum > 0 ? 'Win' : 'Lose';
my $win = $tie{"@all"}{$tiekey};
die "need tie break, want $tiekey from @all" unless defined $win;
prf "$what %s due to tie break amongst %s\n",
my $tiekey = $signum > 0 ? 'Win' : 'Lose';
my $win = $tie{"@all"}{$tiekey};
die "need tie break, want $tiekey from @all" unless defined $win;
prf "$what %s due to tie break amongst %s\n",