Select Code to Download

my %cache3;
sub to_cache3 {
...
    my $ticker = shift;
    return [ map [ unpack "A10FFFFL", $_ ], $cache3{$ticker} =~ /.{46}
+/sg ];
}

       Rate mod2 orig mod1
mod2 9.43/s   --  -1% -72%
orig 9.52/s   1%   -- -72%
mod1 33.7/s 257% 253%   --