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); }