use 5.010; use strict; use warnings all => 'FATAL';

my ( $old,  $new )  = qw( old new );
my ( $rold, $rnew ) = map~~reverse, $old, $new;

say for
	"$old => $rold",
	"$new => $rnew";