Select Code to Download

0,0,0,0
0,0,0,2
...
2,2,3,3
2,3,3,3
3,3,3,3

#!/usr/bin/perl

...
        say join(",", @states);
    }
}

time perl test.pl
count=1
...
real    1m34.525s
user    1m32.524s
sys     0m0.030s