>>8
ok then...

sub list { my $x = []; (map { $x = [ pop, $x ] } @_)[-1] }
sub liststar { my $x = pop; map { $x = [ pop, $x ] } @_; $x }