Select Code to Download

use strict;

...
                        'build_print' => $build_print,
                        'list_print' => $list_print,
                       });

Benchmark: timing 1000 iterations of build_print, list_print...
build_print: 120 wallclock secs (119.84 usr +  0.04 sys = 119.88 CPU) 
+@  8.34/s (n=1000)
...
              Rate build_print  list_print
build_print 8.34/s          --        -24%
list_print  10.9/s         31%          --