task.</p>

<p>The <code>recreate()</code> function puts the bits 7/6/5 together to one image. The perl array is converted back to a PDL object, because we write the data to a PNG file with PDL. The <code>PDL xchg()</code> function has to exchange the dimensions of the data.</p>

<pre><code>        @hidden{ &#39;bit7&#39;,&#39;bit6&#39;,&#39;bit5&#39; } = (
                $image{bit_plane}{red}[0],
                $image{bit_plane}{green}[0],
                $image{bit_plane}{blue}[0],
        );
        my