Sorry, I transformed the data already, and included more than necessary. Try this instead (in which, again, {B, C, D} yield a separable submatrix):

  my @grid = ( "ABCD1", "A0002", "0BCD3", "0BCD4");
[download]

Hugo