my @delim = ( ["A", -3, "C"], ["C", -4, "B"] );
my @data  = (
  ["A", -4, "A"],
  ["A", -1, "C"],
  ["C", -4, "D"],
  ["D", -4, "B"],
  ["B", -3, "C"],
  ["C", -2, "B"],
  ["B", -1, "E"]
);