/code> prints the size of the array to STDOUT. This can be helpful to debug the image processing, to see the size of some resulting image array.</p>

<pre><code> sub info_array {
        my ($aref) = @_;
        print &quot;Array: Size &quot;;
        print &quot;$#{$aref}&quot; if ref($aref) eq &quot;ARRAY&quot;;
        print &quot; x $#{$aref-&gt;[0]} &quot; if ref($aref-&gt;[0]) eq &quot;ARRAY&quot;;
        print &quot; x $#{$aref-&gt;[0]-&gt;[0]}&quot; if ref($aref-&gt;[0][0]) eq &quot;ARRAY&quot;;
  