Select Code to Download

my @combos = (
               [qw(black white)],
...
               [qw(magenta green blue)],
               [qw(cyan periwinkle raspberry)],
              );

sub r {
    my $g = shift;
...
    print "next set:\n";
    r($g, ($g->vertices)[0]);
}