Select Code to Download

#! /usr/local/bin/perl
use strict;
...
                'Sub 1' => $sub1,
                'Sub 2' => $sub2,
        });

Benchmark: timing 100000 iterations of Sub 1, Sub 2...
     Sub 1: 28 wallclock secs (27.37 usr +  0.00 sys = 27.37 CPU) @ 36
+54.01/s (n=100000)
     Sub 2: 40 wallclock secs (32.25 usr +  0.00 sys = 32.25 CPU) @ 31
+00.78/s (n=100000)