Select Code to Download

sub printsubsets1 {
  my ($prefix, @elemarray) = @_;
...
sub printsubsets { printsubsets1("",@_);}

printsubsets(qw(a b c d e));

sub printsubsets2 {
  my $stuff = join('',@_);
...

printsubsets2(qw(a b c d e));

sub initialmask {
  my $nelem = shift;
...
do {
  # blah blah blah $mask
} while (nextmask($mask));

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/