use v5.16;
use List::Util qw/pairmap/; # this is in core if you have a recent Perl

my @list = qw( 1 22 3 -4 5 666 7 );

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