Select Code to Download

  my @C = map { [ $_ ] } @{ shift @_ };

  my @C = [];

sub cartesian {
    my @C = [];
...

    return @C;
}