mapslice => sub { my @x = @::list[ map {$_<<1} reverse 0..@::list>>1 ] }