d to one value. This one value is stored in the resulting array at its indices.</p>

<pre><code> sub recreate {
        my ($bit7,$bit6,$bit5) = @_;
        my @res;
        for( my $w=0; $w&lt;=$#$bit7; $w++ ) {   # Iterate Column
                my $col = $bit7-&gt;[$w];
                for( my $h=0; $h&lt;=$#$col; $h++ ) {  # Iterate Row
                        my $v7 = $bit7-&gt;[$w][$h] &lt;&lt; 7;  # Shift to Bit 7
                        my $v6 = $bit6-&gt;[$w][$h] &lt;&lt; 6;  # Shift to Bit 6
     