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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

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