my %cache3;
sub to_cache3 {
    my( $ticker, $data ) = @_;
    $cache3{$ticker} = pack "(A10FFFFL)*", map @$_, @$data;
}

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

##</code><code>##

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