Select Code to Download

sub from_cache2 {
    my $ticker = shift;
    return [ map unpack("A10FFFFL", $_), @{ $cache2{$ticker} } ];
}

C:\test>880868-2
       Rate orig mod1
orig 8.01/s   -- -36%
mod1 12.4/s  55%   --