use Carp::Assert; ... assert(Crd2Index( $row, $col ) < Squared, "Crd2Index( $row, $col ) < Squared") if DEBUG;