Select Code to Download

#!/usr/bin/perl
use strict;
...
        'PDL-based'   => sub { using_pdl($pdldata) },
    }
);

                Rate   PDL-based Array-based
PDL-based    36496/s          --        -67%
Array-based 111111/s        204%          --