Help for this page
I fixed the errors
my $longer = (@cold > @new) ? $#cold : $#new;
my $longer = (@cold > @cnew) ? $#cold : $#cnew;