my $row1 = pack 'C*', map 1+int( rand 2 ), 1..100;
my $row2 = pack 'C*', map 1+int( rand 2 ), 1..100;