Select Code to Download

#!/usr/bin/env perl

...
for (reverse 0 .. $#graph) {
    print @{$graph[$_]}, "\n";
}

Min:   0
Max:   9
...
  *  *
    *
   *