             # Prints Array Size to STDOUT.
 info_pdl($data,$title);                 # Prints PDL Info to STDOUT.</code></pre>

<p>Because two different solutions are implemented in this script, I wanted to compare both related to time behaviour. For this reason I used the module Time::HiRes. The following code I inserted to measure the time.</p>

<pre><code>        use Time::HiRes qw(gettimeofday tv_interval);
        ...

        my $t0 = [gettimeofday];

        ... (measured code)

        my $t1 = [get