.</p>

<pre><code> @image{ &#39;red&#39;,&#39;green&#39;,&#39;blue&#39; } = rgb($image{data}); # Assigning values to Hash slice

 my @colors = (&#39;red&#39;,&#39;green&#39;,&#39;blue&#39;);
 @{ $image{bit_plane} }{ @colors } = (   # Assigning values to Hash Slice
        [ bit_plane($image{red}) ],
        [ bit_plane($image{green}) ],
        [ bit_plane($image{blue}) ],
 );</code></pre>

<h2 id="B.-Separation-with-Array">B. Separation with Array</h2>

<p>Because we read the PNG file with PDL mechanisms, 