Select Code to Download

#!/usr/bin/perl 
use strict;
...
   'Verbose3' => 'verbose3(\%h)',
   'Idiom' => 'idiom(\%h)',
});

Results:
Benchmark: timing 1000000 iterations of Idiom, Verbose, Verbose2, Verb
+ose3...
...
   Verbose: 12 wallclock secs (12.92 usr +  0.00 sys = 12.92 CPU) @ 77
+3993.81/s (n=10000000)
  Verbose2: 13 wallclock secs (13.06 usr +  0.00 sys = 13.06 CPU) @ 76
+5696.78/s (n=10000000)
  Verbose3: 15 wallclock secs (13.90 usr +  0.01 sys = 13.91 CPU) @ 71
+8907.26/s (n=10000000)