Help for this page
#!/usr/bin/perl ... } print $uniquecliques;
[1,2],[1,3],[1,4], [2,3],[2,4], ... 5 7 8 23 4 4 5