Select Code to Download

#!/usr/bin/perl -w
use strict;
...
   'InjunJoel' => '&injun'}
);

Benchmark: timing 500000 iterations of Ikegami, InjunJoel...
   Ikegami: 16 wallclock secs (15.88 usr + 0.00 sys = 15.88 CPU) @ 314
+94.08/s (n=500000)
 InjunJoel: 10 wallclock secs ( 11.05 usr + 0.00 sys =  11.05 CPU) @ 4
+5265.25/s (n=500000)