die "ASSERT( $row, $col )" unless Crd2Index( $row, $col ) < Squared;

##</code><code>##

use Carp::Assert;

...

assert(Crd2Index( $row, $col ) < Squared, 
       "Crd2Index( $row, $col ) < Squared") if DEBUG;