my @cnew = split //, $new;
  my $longer = (@cold > @cnew) ? $#cold : $#cnew;