I fixed the errors

##</code><code>##

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

##</code><code>##

  my $longer = (@cold > @cnew) ? $#cold : $#cnew;