Select Code to Download

$ perl 939870.pl 1000
Building arrays of 1000 with unique 4-char keys... done.
...
                  s/iter arrays plus regex      using a hash
arrays plus regex   4110                --             -100%
using a hash       0.330          1245345%                --

$ cat 939870.pl
#!/usr/bin/perl
...
    }
}