RosettaCodeData/Task/Power-set/Perl/power-set-2.pl

use ntheory "forcomb";
my @S = qw/a b c/;
forcomb { print "[@S[@_]]  " } scalar(@S);
print "\n";