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