$prob{$player} = [ @x[1..$#x] ];
}
close MCCALC;
- #unlink $tmpnam;
+ unlink $tmpnam;
my $num_games = scalar keys %prob;
for my $i (1..$num_games) {
push @scenario, [ $1, $2, $3 ];
}
close MCCALC;
- #unlink $tmpnam;
+ unlink $tmpnam;
my @sorted_players = sort { $players{$a} cmp $players{$b} } keys %players;
my $player_name = $players{$sorted_players[$match_player]};