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