Select Code to Download

          Rate derived baseobj    hash
derived 1641/s      --     -0%    -79%
baseobj 1649/s      0%      --    -79%
hash    7876/s    380%    378%      --

#!/usr/bin/perl
use strict;
...
     hash => sub {$dump = $hash{1} for 1 .. 1000},
     }
);