Use single array and 4 bits per line.

[vickenty]

This is a bit dodgy, since it relies on the fact that there are only 7 phases in Perl.