Select Code to Download

#!/cadappl/bin/perl -w -Ilib

...
{
        print "$_->[0],$_->[1],$_->[2],$_->[3]\n";
}

1,5,1,1
1,1,2,1
...
5,5,1,5
2,3,5,3
5,3,5,5