Select Code to Download

while (@one) {
   push(@two, pop(@one));
}

my @b = reverse(@a);

...
my @b = @a[ sub { my @rv; push(@rv, pop()) while @_; return @rv }->(0.
+.$#a) ];

my @b = @a[ sub { my @rv; unshift(@rv, shift()) while @_; return @rv }
+->(0..$#a) ];