machintosh:Clustering kimmy$ perl debuggig.pl 
$VAR1 = [
          [],
          [
            3
          ],
          [
            10,
            10
          ],
          [
            10,
            10,
            3
          ],
          [
            10,
            10,
            3,
            3
          ],
          [
            10,
            10,
            3,
            2,
            3
          ],
          [
            10,
            10,
            3,
            3,
            3,
            3
          ],
          [
            10,
            10,
            7,
            10,
            7,
            8,
            10
          ]
        ];
machintosh:Clustering kimmy$ perl debuggig.pl input.txt 
$VAR1 = [
          [],
          [
            3
          ],
          [
            10,
            10
          ],
          [
            10,
            10,
            3
          ],
          [
            10,
            10,
            3,
            3
          ],
          [
            10,
            10,
            3,
            2,
            3
          ],
          [
            10,
            10,
            3,
            3,
            3,
            3
          ],
          [
            10,
            10,
            7,
            10,
            7,
            8,
            10
          ]
        ];