Select Code to Download

1  2  3  4
5  6  7  8
9  10 11 12
13 14 15 16

my %adjacency_list = (
                       1 => [2,5,6],
...
                      15 => [10,11,12,14,16],
                      16 => [11,12,15]
                     );

1,2,3
1,2,5
...
1,5,6
...
16,15,14,13,10,11