Select Code to Download

my @people = ("Peter", "Paul", "Jane", "Mary", "Fred");

my @example_teams = (["Peter", "Mary"], ["Paul"], ["Jane", "Fred"]);

my @all_teams = (
    [["Peter"], ["Mary"], ["Paul"], ["Jane"], ["Fred"]],
...
    .
    [["Peter", "Mary", "Paul", "Jane", "Fred"]]
);

    lookupteam(\@people, \@example_team); # returns 42

    constuctteam(\@people, 42);
    # returns [["Peter", "Mary"], ["Paul"], ["Jane", "Fred"]]