Select Code to Download

use strict;
use warnings;
...
    mark($neighbor,$group)
  }
}

(
  ["e", "f", "g"],
...
  ["y"],
  ["z"],
)