Select Code to Download

use v5.16;
use List::Util qw/pairmap/; # this is in core if you have a recent Per
+l
...
my @list = qw( 1 22 3 -4 5 666 7 );

say pairmap { "$b " } reverse @list;

use v5.16;
use List::Util qw/pairmap/;
...
# grepstate -  3 wallclock secs ( 3.12 usr +  0.00 sys =  3.12 CPU) @ 
+33.33/s (n=104)
ok 8 - no (unexpected) warnings (via done_testing)
1..8