my @cell_contents=map { if ($_) { 1; } else { 0; } }@$array_ref[3..10];