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