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

use List::Util qw(reduce);

sub powerset {
    @{( reduce { [@$a, map([@$_, $b], @$a)] } [[]], @_ )}
}