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

##</code><code>##

my $rold = reverse $old;
my $rnew = reverse $new;