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

sub powerset {
    @_ ? map { $_, [$_[0], @$_] } powerset(@_[1..$#_]) : [];
}