for $eve_one (0..scalar(@events_ns)-1) {
$cur_ns = &pull_feilds_ns($eve_one);
push @ns_games, $cur_ns;
}
for $games_ns_cart (0..scalar(@ns_games)-1) {
@ns_games_rev = @ns_games;
@ns_games_rev[$games_ns_cart] =~ s/(.*:.*):(.*:.*)/\1:\0/;
}
@ns_games_do = (@ns_games, @ns_games_rev);
for $eve_two (0..scalar(@events_bb)-1) {
$cur_bb = &pull_feilds_bb($eve_two);
push @bb_games, $cur_bb;
}
@allgame = &combinations(\@bb_games, \@ns_games)};
@allgame_uniq = uniq(@allgame);
return(\@allgame_uniq);
}
####
Texas Rangers:1.78740157480315:Seattle Mariners:2.17:Texas Rangers:1.78740157480315:New York Mets:2.15
####
@allgame_uniq = &permu();
####
@allgame_uniq[5].