Select Code to Download

#! /usr/bin/perl -w
use strict;
...
    'func' => \&zeit_mit_func,
    'array' => \&zeit_mit_array,
});

Benchmark: timing 100000 iterations of array, func...
     array: 11 wallclock secs (10.82 usr +  0.00 sys = 10.82 CPU) @ 92
+42.14/s (n=100000)
      func: 33 wallclock secs (32.68 usr +  0.00 sys = 32.68 CPU) @ 30
+59.98/s (n=100000)