Select Code to Download

use constant NCOLS => 3954;

...
my @matrix = map[ unpack 'C*', $_ ], unpack '(a' . NCOLS . ')*', $buff
+er;
...